Bernd Weiland Un beneficiu indispensabil pentru a învăța orice utilizator programarea computerelor destul de profesionistă Visual Basic pentru copii Bernd Weiland Visual Basic blană Copii Bernd Weiland Visual Basic pentru copii Editura „Interexpert” Moscova vw UDC : BBK = B Traducere de Yu D Selyutsky Toate drepturile, inclusiv versiunea tradusă, sunt rezervate Nicio parte a cărții sub nicio formă (fie tipărită, fotocopiată, microfilm sau altfel) nu poate fi reprodusă sau procesată, reprodusă sau distribuită fără permisiunea scrisă a editorului Utilizarea mărcilor comerciale, denumirilor comerciale și denumirilor comerciale în această carte fără reproducerea mărcilor comerciale și mărcilor comerciale nu poate fi considerată ca utilizare a mărcilor comerciale și mărcilor comerciale conform legii mărcilor comerciale și, prin urmare, este declarată liberă pentru utilizare ISBN - - - (Germania) ISBN - - - (Rusia) ©verlag moderne industrie, Landsberg/Lech, © Traducere în rusă și proiectare de Interexpert JSC, Cuprins PREFAȚA INTRODUCERE LIMBAJUL DE PROGRAMARE DE BAZĂ VIZUALĂ Ce este programarea? EXEMPLU INTRODUCTOR Obișnuiește-te încet cu Primul program ELEMENTE DE CONTROL ȘI PROPRIETĂȚILE LOR Două niveluri de dezvoltare a programului Creați folderul Elementele Labei și TextBox Elementele CheckBox și OptionButton Elemente ListBox și ComboBox Elementele ScrollBars Cronometru PictureBox și elemente de imagine PRIMII PASI Moduri de executare a programului Conceptul de variabilă Calcule în Visual Basic Operarea diviziei Numărătoarea continuă Complicat dacă STUDIU SUPLIMENTAR AL BAZULUI VISUAL Crearea ciclurilor Joc cu mingea pentru bucla Buclele While O altă buclă While Noua aplicație pentru jocuri cu minge Lucrul cu temporizatorul Mingea continuă să sară COMBINAREA VARIABILELOR În ce este Massi? Al doilea formular Variabilele și domeniul lor de aplicare Necesar pentru modulul Lucrul cu proceduri CREAREA PROPRIILOR TIPURI DE DATE Baza de date crește cu Combinarea variabilelor Extensia programului Schimbări de cod MENIU Crearea meniului Noii competitori ai Microsoft Greutatea fontului aldine Ultima apăsare Valori returnate Funcția InputBox LUCRU CU DATE Cum se deschide un fișier? Gestionarea erorilor Operații cu variabile de tip String Lucrul cu fișierele Salvarea datelor CONCLUZIA ANEXA A ANEXA B INDEX cuvânt înainte De când ați luat această carte, evident că doriți să învățați cum să programați Nu pot decât să salut dorința ta Cel care folosește doar programele altora se află mereu într-o situație de dependență, așteptând ce îi vor pune la dispoziție alți programatori Dar cât de bine ar fi să-ți implementezi propriile idei, să-ți scrii propriile jocuri, să creezi noi aplicații așa cum vrei tu! Toate acestea sunt posibile Trebuie doar să decideți să faceți pasul de la un simplu utilizator la un dezvoltator Distanța dintre ele este poate mai mică decât crezi Și când vei face acest pas, computerul nu va mai fi pentru tine doar ceea ce a fost De ce Visual Basic? Dacă vă aprofundați puțin în întrebare, veți vedea că există diferite limbaje de programare, la fel cum există diferite limbi străine - franceză, engleză sau, să zicem, latină Pentru un începător, Visual Basic este poate cea mai bună alegere, deoarece acest limbaj vă permite să obțineți rapid rezultate impresionante Foarte curând vei învăța cum să faci mingea să sară în jurul ecranului și vei învăța elementele de bază ale programării jocurilor Pentru a înțelege cartea, sunt suficiente doar cunoștințele de bază despre lucrul cu Windows sau Windows Ar trebui să știți deja cum pornește un program sub Windows și alte lucruri elementare similare Dacă există încă multe lacune în cunoștințele dvs , vă recomand să citiți mai întâi o carte despre sistemul Windows pentru începători Nu sunt necesare cunoștințe anterioare de programare: începem să o învățăm pentru ca toată lumea să o poată face cu noi Din software veți avea nevoie de sistemul de operare Windows / și Visual Basic Acesta este așa-numitul „model de lucru”, care (cu unele limitări, care vor fi discutate mai târziu) corespunde versiunii complete și este excelent pentru familiarizarea inițială cu limba Programarea este foarte distractivă, mai ales când rezultatul nu întârzie să apară Este exact ceea ce se întâmplă atunci când lucrați cu limbajul Visual Basic Încearcă și tu și vei vedea! Bernd Weiland, aprilie Introducere În primul rând, despre cel mai important lucru Pentru a utiliza această carte, trebuie să aveți instalat pe computer Windows sau Windows În plus, pentru a finaliza exemplele și sarcinile din carte, va trebui să instalați Visual Basic pe hard diskul computerului Procesul de instalare a sistemului de programare Visual Basic și de lucru cu materialele pentru realizarea exercițiilor sunt descrise în detaliu în Anexele A și B Exemplele discutate în carte sunt însoțite de explicații detaliate În toate etapele creării unui cod de program, sunt date rezultate intermediare Priviți-le doar pentru a verifica sau în cazul în care ceva nu funcționează în niciun fel Pentru ca materialul cărții să fie mai ușor de asimilat și să îl înțelegi rapid, folosește câteva simboluri care te vor însoți în timpul citirii Această săgeată indică faptul că trebuie să efectuați o anumită acțiune: de exemplu, introduceți textul programului, creați un formular și așa mai departe Când vă familiarizați cu materialul cărții, puteți întâmpina unele probleme sau vă aflați într-o situație dificilă În acest caz, citiți cu atenție textul marcat cu acest semn de întrebare Cele mai importante informații sunt marcate cu ajutorul unui desen de morcov în marginile cărții Iar când în text apare o poză cu un iepure, înseamnă că vei primi un indiciu sau vei învăța un mic truc Cunoașterea lucrurilor mărunte este cea care distinge un programator bun Ei bine, introducerea s-a terminat E timpul să începi! opt Limbajul de programare Visual Basic În primul rând, programul Visual Basic versiunea trebuie instalat pe computer (în Anexa A sunt descrise în detaliu toate etapele instalării acestuia) Dacă sunteți printre cei care fac primii pași în programare, atunci, în primul rând, aș vrea să vă explic ce rezultate se pot obține folosind sistemul Visual Basic În acest capitol veți învăța: • ce este programarea; • ce este un limbaj de programare; • Ce puteți face cu limbajul Visual Basic Ce este programarea? Deci, ce este Visual Basic? Și ce este programarea? Probabil că există deja câteva programe în memoria computerului dvs : poate un editor de text Word, câteva jocuri și, desigur, un sistem de operare, cum ar fi Windows sau Windows După cum am menționat deja, acestea sunt toate programele pe care cineva le-a creat sau a scris Când scrieți un program, computerului i se spune ce este necesar de la acesta De exemplu: „Afișează o astfel de imagine pe ecran și, când jucătorul apasă pe trăgaci, simulează o fotografie” Sau: „Când utilizatorul introduce text și apasă un buton pentru a-l salva, asigurați-vă că textul este scris pe hard disk” Descrierea detaliată a acțiunilor pe care trebuie să le efectueze computerul se numește programare Și cum programează, adică cum stabilesc contactul cu un computer? Doar să vorbești cu el este inutil - nu va reacționa în niciun fel Prin urmare, avem nevoie de un program care să spună computerului ce vor de la el Conține așa-numitul limbaj de programare, ușor de înțeles de computer Există foarte multe limbaje de programare Și unul dintre ele, după cum ați putea ghici, este Visual Basic Astfel, Visual Basic este un mediu de dezvoltare conceput pentru scrierea de programe de calculator Aceasta înseamnă că, după ce ați stăpânit materialul cărții, veți învăța să scrieți singur programe pentru computer Probabil vrei să știi ce fel de programe poți scrie cu Visual Basic Răspunsul este simplu: poți scrie aproape orice cu el Odată ce stăpâniți limbajul Visual Basic, puteți scrie jocuri, dezvolta baze de date din casete video, CD-uri sau adresele prietenilor și alte lucruri interesante Cu toate acestea, există încă unele limitări Este puțin probabil ca jocurile moderne cu multă acțiune (cum ar fi Ego-Shooter) să fie scrise folosind Visual Basic În aceste scopuri, se folosesc limbaje de programare mai complexe pentru a crea produse cu performanțe ridicate În plus, scrierea aplicațiilor mari necesită mult timp Programe precum Microsoft Word au fost lucrate de mulți oameni de-a lungul anilor, iar crearea de jocuri noi este o provocare prea mare pentru un singur dezvoltator, având în vedere că la ele lucrează și compozitori și artiști Visual Basic este limbajul ideal pentru aproape fiecare program pe care îl scrieți în viitorul apropiat Și dacă mai târziu vrei să devii programator profesionist și trebuie să înveți alte limbi, va fi mai rapid dacă ai învățat deja Visual Basic Dacă se dovedește că programul pe care îl creezi este prea greoi, poți încerca să găsești oameni cu gânduri similare și să continui să lucrezi cu ei Mulți programatori caută colegi pe Internet pentru a crea împreună jocuri sau aplicații Formulare E & Fereastra proiectului Aruncă o privire mai atentă la fereastra proiectului Dacă fereastra formularului nu apare la încărcarea programului, este posibil să nu fie selectată încă Faceți clic în fereastra proiectului înainte de cuvântul Formează un mic semn plus și selectați forma dorită dintre cele disponibile în program Să ne ocupăm de textul programului și fereastra de cod Sub titlul ferestrei, Visual Basic a furnizat scheletul programului Vom discuta despre ce înseamnă cuvintele Opțiune explicită în capitolul , dar, deocamdată, să ne uităm la următorul text din fereastră: Private Sub Commandl Click() end sub Aceasta este caseta în care programatorul introduce comenzile care sunt executate atunci când butonul este apăsat În cazul nostru, programul se termină cu următoarea comandă simplă: Sfârşit Introduceți textul acestei comenzi în cadrul programului (cursorul este deja în el) Comanda poate fi tastată atât cu litere mari, cât și cu litere mici Spre deosebire de alte limbaje, cum ar fi C/C++, Visual Basic nu face distincție între cazuri Salvați din nou programul și executați-l apăsând tasta F Apoi faceți clic pe butonul Ieșire Deci ai creat primul tău program Chiar dacă nu este nimic special, îți faci totuși o idee despre ceea ce oferă Visual Basic și, poate cel mai important, distracția de a programa în acest limbaj Și deși calea către stăpân este încă departe, credeți-mă, eforturile voastre vor fi justificate Elemente de control și proprietățile acestora După „execuția de încercare”, cu siguranță doriți să știți ce mai are de oferit Visual Basic, cum să scrieți programe mai complexe și așa mai departe Ne vom apropia treptat de răspunsul la aceste întrebări În acest capitol veți învăța: • cum se creează foldere și de ce sunt necesare; • ce sunt controalele și cum se lucrează cu acestea; • modul de utilizare a comenzilor de bază • cum poate fi util un cronometru Cu comenzile PictureBox și Image veți intra în lumea programării grafice Două niveluri de dezvoltare a programului Ați uitat ce este bara de instrumente și unde se află? Așa este, se află în partea stângă a ferestrei de dezvoltare Visual Basic Pictogramele individuale ale acestui panou, despre care cunoașteți deja CommandButton, sunt numite controale Să le cunoaștem sistematic Probabil că ați simțit deja diferența dintre cele două niveluri de programare în exemplul introductiv Pentru orice eventualitate, observ că în el butonul de comandă Exit, care este un element grafic, aparține shell-ului utilizatorului Este afișat doar pe ecran, în timp ce funcționalitatea sa (adică sfârșitul efectiv al programului atunci când butonul este apăsat) este textul programului - în cazul nostru, comanda de sfârșit Creați un folder Deoarece vom rula un număr mare de exemple în acest capitol și în capitolele următoare, ar trebui să creați un folder pe hard disk în care să le stocați În sistemul de operare Windows / , acest lucru se face după cum urmează • Faceți dublu clic pe pictograma My computer (Computerul meu), apoi pe pictograma hard disk-ului dorit (dacă aveți mai multe) și în meniul Fișier, specificați secvențial comenzile New (Create) și Folder (Folder) Desigur, puteți folosi conductorul pentru asta • Dați folderului un nume care vă place cel mai mult; după părerea mea, ar fi rezonabil să-l numim VBPrograms sau ceva de genul ăsta • Aveți grijă ca diferitele proiecte Visual Basic, precum și formularele (înțelegeți diferența dintre ele?) să aibă nume diferite, altfel confuzia este inevitabilă Pentru o fiabilitate completă, puteți crea subfoldere suplimentare în noul folder (direct din mediul Visual Basic) folosind butonul New Folder din fereastra de salvare din bara de instrumente Pentru o încredere deplină, profesioniștii creează un folder separat pentru fiecare proiect Ei bine, dacă înveți să faci la fel Buton folder nou (al treilea din dreapta) Elemente Labei și TextBox Controalele Labei (Label) și TextBox (Text box) sunt de obicei situate în a doua linie a barei de instrumente Deplasați mouse-ul peste ele pentru a vedea un indiciu Ambele comenzi pot conține text Diferența dintre cele două este că utilizatorul nu poate schimba textul elementului Labei, dar textul TextBox poate Elementul TextBox este adesea folosit pentru introducerea unor date de către utilizator Creați un nou proiect Pentru a face acest lucru, selectați comanda Proiect nou din meniul Fișier Faceți dublu clic pe pictograma Labei din bara de instrumente După cum era de așteptat, în mijlocul formularului apare un control etichetat Labei În primul rând, schimbați acest titlu la Introduceți numele - vă amintiți cum să faceți acest lucru? În fereastra de proprietăți, faceți clic pe linia Legendă și înlocuiți textul din câmpul din dreapta Se vede ca nu se incadreaza complet in elementul de control Deci, trebuie să modificați dimensiunea elementului Pe părțile laterale ale elementului de control sunt pătrate Se numesc suporturi, deoarece pot fi apucate și întinse la forma dorită Mutați cursorul în pătratul din mijloc din partea dreaptă, faceți clic pe el cu mouse-ul și mutați-l la dreapta în timp ce țineți apăsat butonul din stânga Întindeți elementul până când tot textul se potrivește în el Să schimbăm poziția elementului Labei în formular E prea departe la dreapta (ar arata mai frumos la mijloc) De asemenea, trebuie să lăsați loc dedesubt pentru un TextBox unde utilizatorul își poate introduce numele Așa că mutați Labei la stânga și în sus Mutați cursorul mouse-ului peste elementul Labei și faceți clic pe el Ținând apăsat butonul stâng al mouse-ului, puteți muta controlul în orice direcție Dacă nu puteți poziționa orizontal elementul exact în mijloc, în meniul Format (Format), selectați comenzile Center in Form (Plasați în centrul formularului) și Orizontal (Orizontal) Să ne uităm la câteva proprietăți ale controlului Labei Știți unde să le vedeți? În partea dreaptă a ecranului ferestrei de proprietăți Să schimbăm mai întâi numele Numele (Numele) (este situat în partea de sus a ferestrei de proprietăți) nu are nimic de-a face cu Caption Legenda este doar numele sau titlul unui control sau formular, în timp ce toate lucrările cu acestea se fac folosind numele Vă amintiți exemplul din capitolul ? Am numit butonul Ieșire Astfel, Exit este valoarea proprietății Caption a butonului Dacă dintr-o dată doriți să vă referiți la un element de control, de exemplu, pentru a schimba textul în timp ce programul rulează, atunci va trebui să utilizați numele acestui element Cum se întâmplă exact acest lucru, voi explica în capitolele următoare Deocamdată, amintiți-vă că Numele și Legenda nu sunt același lucru Care este cel mai bun nume pentru a da elementului Labei? Ar trebui să fie cât mai informativ posibil Pentru a face acest lucru, se obișnuiește să se indice tipul de control la început (în acest caz, Labei), de regulă, într-o formă prescurtată ( Ы) Aceasta este urmată de o notație specifică, cum ar fi NameInput Întregul element Labei primește numele IblNamelnput - desigur, puteți veni cu ceva mai bun Faceți clic în câmpul din dreapta numelui din fereastra de proprietăți și introduceți un nume nou Poate nu vă place tipul sau dimensiunea fontului? Apoi utilizați proprietatea Font (Font) Faceți din nou clic pe partea dreaptă a rândului pentru această proprietate în fereastra corespunzătoare (poate că acum indică numele unui anumit font - MS Sans Șerif) Veți vedea un buton cu puncte de suspensie Aceasta înseamnă că există și alte opțiuni pe care le puteți selecta din meniul derulant Faceți clic pe el și alegeți ce doriți În cele din urmă, setați proprietatea Autosize la True În acest caz, dimensiunea elementului de control se va potrivi automat cu dimensiunea textului și nu vor exista margini suplimentare Acest lucru este foarte ușor de făcut: faceți clic pe partea dreaptă a liniei pentru această proprietate, unde acum pare a fi Fals (Fals) În partea dreaptă va apărea o săgeată, pe care trebuie să o dați și clic cu mouse-ul Alegeți Adevărat Va dura timp pentru a învăța cum să efectuați aceste acțiuni Dar poți fi sigur: cu puțină practică, vei începe să le faci fără ezitare Formularul ar trebui să arate cam așa: Să creăm un control TextBox, astfel încât utilizatorul să poată îndeplini cerința noastră introducând numele Știi deja cum să o faci În bara de instrumente, faceți dublu clic pe pictograma TextBox Un element TextBox va apărea pe ecran (mai precis, în centrul formularului) Înlocuiește-i numele cu txtName (txt este abrevierea comună pentru TextBox) Desigur, nu vom folosi câmpul implicit Textl al elementului nostru Trebuie să fie gol Pentru a face acest lucru, selectați proprietatea Text (Text) în fereastra de proprietăți și ștergeți textul din partea dreaptă a liniei corespunzătoare În plus, câmpul este prea mic pentru a introduce numele întreg în el Prin urmare, faceți clic pe elementul de control și trageți-l de suporturi la lungimea și înălțimea dorite Formularul va arăta cam așa: Aspectul final al formularului Este timpul pentru o rulare de probă a programului Știți ce să faceți: apăsați butonul F După aceea, introduceți numele dvs (sau oricare altul) în câmpul elementului TextBox Pentru a ieși din program, faceți clic pe butonul cu imaginea unei cruci în partea dreaptă sus a ecranului Astfel, am creat un întreg program în Visual Basic fără a scrie o singură linie de cod de program! Mai multe sarcini mici Adăugați un buton de ieșire la program cu codul de program corespunzător Bara de titlu a programului nostru spune Forml Schimbați titlul cu ceva mai specific Vă sfătuiesc să țineți cont de faptul că acest lucru va schimba valoarea proprietății Caption a formularului Schimbați fontul controlului TextBox, astfel încât textul introdus să fie mai mare și aldine Elementele CheckBox și OptionBirtton Utilizatorului nu i se cere întotdeauna să introducă un text, așa cum este cazul elementului TextBox Uneori este necesar ca el să aleagă doar una dintre opțiunile care i se oferă Și o astfel de posibilitate există, ceea ce este ilustrat de următorul exemplu Să începem să creăm programul selectând comanda Proiect nou din meniul Fișier Deoarece vom avea nevoie de destul de mult spațiu, întindeți forma în lungime și lățime Pentru a face acest lucru, faceți clic pe suportul din colțul din dreapta jos și mișcați mouse-ul în timp ce țineți apăsat butonul din stânga Găsiți pictograma casetei de selectare pe bara de instrumente cu indiciu Caseta de selectare (caseta de selectare) și faceți dublu clic pe ea Întindeți elementul de control apărut spre stânga și repetați pașii descriși de încă două ori Poziționați cele trei comenzi pe care le-ați creat una sub alta În partea stângă a formularului există trei controale Checkl, Check și Check Pentru comparație, aruncați o privire la rezultatul meu: Trei elemente CheckBox Vi se pare dificil să poziționați trei elemente CheckBox exact unul sub celălalt și la aceeași distanță? Specificați secvențial în meniul Format comenzile Align (Align) și Vertical Spacing (Interval vertical) Dar înainte de a le selecta, selectați toate cele trei elemente în același timp Cum să o facă? Faceți clic pe primul, apoi apăsați și mențineți apăsată tasta Shift t pentru a selecta celelalte două elemente în re- Acest lucru îi va face pe toți să iasă în evidență Rulați programul apăsând tasta F (nu voi repeta acest lucru în continuare) Dacă apoi faceți clic pe control (selectați-l), va apărea o bifă La următorul clic, acesta dispare Rețineți că controalele pot fi făcute clic independent unele de altele, selectând în același timp mai multe dintre ele - Elementele CheckBox sunt folosite pentru a specifica mai multe opțiuni diferite în același timp Imaginați-vă că proiectați un formular pentru un chestionar în care utilizatorul trebuie să indice dacă este bărbat și dacă este căsătorit: este foarte posibil ca la aceste întrebări să li se pună două întrebări raspuns pozitiv Alt lucru, dacă trebuie să-i cunoști genul În acest caz, este posibilă doar una dintre cele două opțiuni disponibile, deci elementul CheckBox nu este utilizat În schimb, vom selecta OptionButton (Option Button) (numit și RadioButton), care se află de obicei pe bara de instrumente de lângă CheckBox Poziționați aceste două controale de formular unul sub celălalt, la dreapta celor trei casete de verificare și rulați programul Puteți observa că aceste elemente nu sunt evidențiate în același timp Apropo, din acest motiv se folosește cuvântul radio în numele lor (tradus din engleză, înseamnă „radio”: un receptor radio poate prinde doar un val la un anumit moment) Pentru a selecta o valoare implicită, trebuie să setați proprietatea Value la True Apoi, elementul corespunzător va deveni automat selectat când programul este executat Desigur, acest lucru se poate face doar cu unul dintre elementele OptionButton Pentru ca designul nostru să funcționeze, vom scrie o mică bucată de cod de program Denumiți elementul OptionButton de sus optMasculine; specificați Masculin în linia Subtitrare Ambele se fac folosind fereastra de proprietăți când este selectat butonul OptionButton de sus Denumiți cel de-al doilea element OptionButton optFeminine și setați linia Caption la Feminine Lăsăm valoarea proprietății Value a ambelor elemente egală cu False, utilizatorul trebuie să decidă singur Formularul va arăta astfel: Aspectul final al formularului Făcând dublu clic pe elementul de sus, veți ajunge la fereastra de cod În ea, așa cum ghiciți deja, așteptăm textul Privat sub optmasculin Click Sfârşit Introduceți următoarea linie în el: MsgBox „Ești bărbat” MsgBox este prescurtare pentru MessageBox (o fereastră în care este afișat un mesaj) În forma lor cea mai simplă, aceste casete conțin doar text (specificat între ghilimele după comanda MsgBox) și un buton OK pe care utilizatorul îl apasă pentru ca programul să continue Începem programul Făcând clic pe elementul OptionButton de sus, utilizatorul va vedea următoarele pe ecran: * Se rulează fereastra aplicației și caseta de mesaje Mai multe sarcini mici Scrieți același cod pentru elementul OptionButton optFeminine și rulați programul Veniți cu o utilizare rezonabilă pentru cele trei elemente CheckBox (situate în partea stângă a formularului), schimbați-le numele și creați casete de mesaje adecvate Elemente ListBox și ComboBox Elementele de control ListBox (fereastra Listă) și ComboBox (fereastră combinată) sunt de obicei situate în a cincea linie a barei de instrumente Să începem cu elementul ListBox Acesta solicită utilizatorului să aleagă una dintre opțiunile disponibile Un caz tipic este alegerea unui font într-un editor de text Ca studiu de caz, vom prezenta utilizatorului o listă de nume din care trebuie să aleagă unul Creați un nou proiect Denumiți formularul frmName și schimbați legenda sa inițială (Caption) în Alegeți un nume Măriți-i puțin dimensiunea Faceți dublu clic pe pictograma ListBox din bara de instrumente, trageți elementul rezultat la dimensiunea dorită și mutați-l ușor spre stânga În linia Nume din fereastra de proprietăți, introduceți IstName Totuși, acum acest nume este indicat și în câmpul elementului ListBox însuși Să-l înlocuim cu un alt nume folosind proprietatea List Faceți clic pe rândul pentru proprietatea respectivă și apoi pe săgeata care apare Introduceți nume După introducerea fiecărui nume, nu apăsați tasta Enter, deoarece aceasta va închide fereastra de introducere Apăsați simultan tastele Ctrl și Enter Este suficient să introducem patru sau cinci nume În cele din urmă, redimensionați ListBox-ul astfel încât toate numele să fie vizibile și să nu existe spații Fereastra formularului va arăta astfel: Element ListBox numit Să extindem funcționalitatea programului nostru Pentru a face acest lucru, vom scrie câteva rânduri de cod de program Faceți dublu clic pe ListBox pentru a afișa fereastra de cod În el, ca de obicei, se află cadrul programului Privat sub lstName Click() end sub Introduceți următorul cod în el: Dacă IstName ListIndex = , atunci MsgBox „Ați ales numele Ivan” End If Dacă IstName ListIndex - Atunci MsgBox „Ați ales numele Peter” End If Dacă IstName ListIndex = Atunci MsgBox „Ați ales numele Vasily” End If Dacă IstName ListIndex - Atunci MsgBox „Ați ales numele Alex” End If Dacă IstName ListIndex - Atunci MsgBox „Ați ales numele Serghei” Sfârșit I f Lista codurilor programului Desigur, trebuie să înlocuiți numele date aici cu cele pe care le-ați introdus în ListBox Declarația if începe sondajul (există soluții mai inteligente, dar despre ele vom vorbi mai târziu) Construcția dacă - atunci înseamnă "dacă - atunci", sau mai mult: Dacă ceva are loc, atunci așa și așa trebuie să se întâmple În exemplul nostru, această construcție înseamnă următoarele: Dacă utilizatorul a ales numele Ivan (în mod similar pentru celelalte nume din listă), atunci programul ar trebui să afișeze o fereastră MessageBox cu mesajul corespunzător • Fiecare construcție if se termină cu o instrucțiune End if f • Programul trebuie să determine ce nume a ales utilizatorul Instrucțiunea IstName ListIndex este folosită pentru a se referi la elementele individuale ale listei (nume în cazul nostru) Primul element al listei este (calculatoarele încep de obicei să numere de la zero), al doilea este și așa mai departe • Deci, instrucțiunea If IstName ListIndex = Then înseamnă: „Dacă utilizatorul a selectat prenumele din listă, atunci este afișat un mesaj corespunzător ” Se poate dovedi că utilizatorului să nu-i placă niciunul dintre numele din listă Ar fi mai bine dacă ar putea introduce el însuși nume suplimentare pentru a extinde opțiunea Pentru a face acest lucru, vom folosi controlul ComboBox Faceți clic pe pictograma corespunzătoare din bara de instrumente Elementul ComboBox va apărea în formular Mutați-l puțin la dreapta și setați numele cboName în fereastra de proprietăți Ca și înainte, în fereastra de proprietăți din câmpul Listă, puteți introduce orice nume, de exemplu, la fel ca în ListBox Ștergeți textul Combol din câmpul de proprietate Text Dacă executați programul, atunci câmpul elementului ComboBox (de obicei nu este extins) va fi gol După apăsarea butonului cu o săgeată situat pe marginea dreaptă a acestui element, acesta se va deschide și îi vei vedea conținutul Rezultatul execuției programului Când faceți dublu clic pe un rând de listă verticală, elementul corespunzător se mută și rămâne în câmpul superior al controlului ComboBox Introduceți un nume în câmpul gol în timp ce programul rulează Ar trebui să apară în lista noastră de nume, dar, din păcate, acest lucru nu se întâmplă: sunt necesare trucuri speciale Nu vom vorbi despre ele - este suficient să vă familiarizați cu controlul ComboBox și să înțelegeți cum diferă de ListBox Mai multe sarcini mici Modificați dimensiunea fontului și tipul controalelor ListBox și ComboBox Pentru a face acest lucru, utilizați proprietatea Font Figura arată rezultatul execuției programului Încercați să creați un formular adecvat și să scrieți codul de program necesar Vă sfătuiesc să utilizați construcția if despre care tocmai am discutat pentru a crea o casetă de mesaj Rezultatul rulării programului terminat Elementele ScrelIBars Elementele ScrollBars vă permit să vizualizați text și să introduceți valori Pictograma corespunzătoare se găsește de obicei pe a șasea linie a barei de instrumente Există două tipuri de bare de defilare: orizontală și verticală Ele nu diferă în esență, așa că vom lua în considerare doar dunga orizontală Creați un nou proiect, denumiți formularul frmScroll și schimbați titlul original în Program ScrollBar (sau ceva de genul acesta) Plasați un control ScrollBar orizontal pe formular (numit hsbScroll) și sub acesta un control Labei (numit IblScroll) Apropo, observ că hsb este o abreviere pentru numele englezesc Horizontal ScrollBar Modificați proprietățile elementului Labei Pentru a face acest lucru, în câmpul de proprietate Alignment (Alignment) setați valoarea - Center (Alignment in the center) astfel încât textul să fie situat în centrul elementului Ștergeți textul titlului (Caption) În cele din urmă, setați câmpul de proprietate BorderStyle (Border Type) valoarea - Fixed single (Fixed single border) Ca urmare, întregul câmp va ieși în evidență pe fundalul ferestrei formularului Am analizat doar câteva exemple despre cum puteți îmbunătăți aspectul unui program scris în Visual Basic Vă recomand să vă jucați cu diferitele proprietăți ale controalelor pentru a vă familiariza mai bine cu scopul lor Multe surprize te asteapta! Schimbați și elementul ScrollBar În primul rând, întinde-l în lățime Setați valoarea proprietății Mip (minimă) la și valoarea Max (maximum) la Astfel, ați determinat intervalul de valori care pot fi vizualizate folosind bara de defilare ScrollBar Program Object Window Valoarea setată în fereastra barei de derulare ar trebui să fie afișată de program ca număr în câmpul elementului de control Labei Pentru a face acest lucru, urmați acești pași: Făcând dublu clic pe bara de defilare, veți ajunge la fereastra de cod cu scheletul programului: Sub privat hsbScroll Change() end sub Aceasta este partea din program care reacționează la această sau acea schimbare (în engleză schimbare) a barei de defilare Introduceți următoarea linie de cod: IblScroll Caption = hsbScroll Value Ce înseamnă această instrucțiune? După cum știți, IblScroll este numele dat controlului Labei Ți-am spus deja că într-un program te poți referi la un control folosind un nume Voi da un exemplu de astfel de tratament Știți că Caption este textul legendei vizibil în marginea elementului Labei Numele acestui element și proprietatea sa Caption sunt conectate prin intermediul unui punct (vă voi explica acest lucru mai detaliat mai târziu) Proprietatea Caption a elementului Labei trebuie setată la valoarea care a fost setată în bara de derulare Cuvântul engleză valoare poate fi tradus ca „valoare”, așa că scriem hsbScroll valoare Maparea acestei valori la elementul Labei este indicată printr-un semn egal Deci linia de cod IblScroll Caption = hsbScroll Value înseamnă: „Puneți valoarea specificată în bara de derulare în câmpul de text al controlului Labei” Încercați să rulați programul și veți vedea că această comandă va fi executată Să reparăm și o mică omisiune în ceea ce privește aspectul programului - când acesta pornește, câmpul elementului Labei este gol Ar fi mai bine dacă ar avea deja valoarea corectă la pornire (în cazul nostru ) Faceți dublu clic pe formularul în care nu există controale Următorul cod va apărea pe ecran: Private Sub Form Load() end sub Deoarece specifică valorile necesare atunci când programul este rulat, vedeți cuvântul Load care indică faptul că formularul se încarcă Introduceți în acest loc exact aceeași linie de cod ca înainte, și anume: IblScroll Caption = hsbScroll Value Figura pentru comparație arată întregul cod al programului: Codul programului ScrollBar Deci, am văzut un exemplu simplu care ilustrează utilizarea unei bare de defilare Cu ajutorul unor astfel de elemente se poate regla volumul în aplicațiile multimedia (de exemplu, într-un CD player) sau viteza unei nave spațiale într-un joc Mai multe sarcini mici Valoarea inițială a controlului Labei poate fi setată folosind codul programului și în alte moduri Ghici ce? Sugestie: textul elementului Labei este de asemenea o proprietate Scrieți un program care funcționează și cu o bară de derulare verticală Așadar, am ajuns la cel mai interesant lucru, fără de care dezvoltatorii de jocuri (și mulți vor să fie ei) nu se pot descurca Acesta este un cronometru Cronometrul poate cu funcția Sub privat tmrTimer Timer() Sfârșitul b să provoace anumite evenimente la anumite intervale, de exemplu, să miște o navă spațială în jurul ecranului, astfel încât să fie creată iluzia zborului său Cu toate acestea, pentru prima dată, vom modera afirmațiile și, folosind cele mai simple mijloace, vom scrie aplicația Cronometru Creați un nou proiect Denumiți formularul frmStopWatch (cronometru înseamnă „cronometru” în engleză) și introduceți Cronometru în câmpul de proprietate Legendă Faceți clic pe pictograma Temporizator din bara de instrumente pentru a afișa temporizatorul în formular Când rulați programul, nu veți vedea cronometrul în formă, deoarece rămâne invizibil în timpul execuției sale În fereastra de proprietăți, trebuie să modificați două proprietăți ale temporizatorului Setați proprietatea Enabled la False și proprietatea Interval la Vom folosi tmrTimer ca nume al temporizatorului Dacă proprietatea Enabled este setată la False, cronometrul nu rulează - îl vom activa cu un buton numit Start Proprietatea Interval specifică viteza cronometrului Când această proprietate este setată la , temporizatorul generează un eveniment la fiecare miime de secundă Din moment ce am setat , evenimentul va avea loc o dată pe secundă (totuși, doar aproximativ, deoarece cronometrul nu funcționează exact, din păcate) În plus, vom avea nevoie de două butoane de comandă - v-ați întâlnit cu acest tip de butoane în exemplul introductiv Numiți-le cmdStart și cmdStop și setați proprietatea Caption la &Start și Stop&n Caracterul (&) are următoarea funcție: litera imediat următoare („C” în cuvântul Start și „n” în cuvântul Stop) este subliniată Dacă, în timp ce programul rulează, utilizatorul apasă simultan tasta Alt și litera corespunzătoare de pe tastatură, rezultatul va fi același ca și cum ar fi apăsat butonul de comandă Încercați aceste operațiuni Și, în sfârșit, trebuie să adăugați elementul de control Labei, cu ajutorul căruia va fi afișat pe ecran timpul de numărătoare inversă Plasați un element Labei în partea de sus a formularului, numiți-l IblTime și setați proprietatea Caption la , care va fi valoarea de pornire a cronometrului Poziționați textul în câmpul Labei astfel încât valoarea de timp afișată să fie situată în centrul câmpului acestui control Îți amintești cum se face? Utilizați proprietatea Alignment Formularul va arăta astfel: Formular pentru programul „Cronometru” Să scriem câteva rânduri de cod Pentru ce ne străduim? În primul rând, cronometrul (mai precis, cronometrul) ar trebui să înceapă să funcționeze atunci când apăsați butonul Start După cum știți deja, funcționarea temporizatorului este controlată de proprietatea Enabled a controlului Timer Dacă proprietatea specificată este setată la True, ceasul rulează, iar dacă False, atunci este oprit Faceți dublu clic pe butonul Start Un cadru binecunoscut al programului va apărea pe ecran: Sub privat cmdStart Click() end sub În el, setați proprietatea Enabled a temporizatorului la True: tmrTimer Activat - Adevărat Mi se pare că acest cod de program este destul de clar și voi vorbi despre punctul dintre tmrTimer și Enabled în detaliu în capitolele următoare Dacă speri că după pornirea programului cronometrul va începe să funcționeze, atunci te înșeli: va rămâne la zero Acele acțiuni care ar trebui să apară atunci când este pornit, încă trebuie să le programam Mai întâi de toate, să scriem codul programului pentru butonul Stop (fă dublu clic pe el) Arata cam asa cale: Sub privat cmdStop Click() TmrTimer Enabled = Fals end sub Ne rămâne doar să organizăm ieșirea valorii timp în câmpul elementului Labei Cu alte cuvinte, avem nevoie ca ori de câte ori temporizatorul este activ (în cazul nostru, o dată pe secundă), valoarea câmpului elementului Labei să fie incrementată cu unu Acest lucru se face în felul următor: Sub privat tmrTimer Timer() LblTime Caption = IblTime Caption + end sub Pentru a explica mai detaliat: faceți dublu clic pe controlul Timer Pe ecran apare un program care, în conformitate cu instrucțiunile noastre, este executat de un cronometru o dată pe secundă Astfel, introducem un cod de program care mărește valoarea proprietății Caption a elementului Labei (adică indicația timpului) cu unul la frecvența specificată Dacă nu înțelegeți această metodă destul de ciudată de adunare (partea stângă a ecuației este diferită de partea dreaptă - cum se poate?), atunci vom discuta întrebarea mai detaliat când ne vom familiariza cu regulile de bază ale limbajului Visual Basic Figura arată fereastra cu codul complet al programului: Cod program complet Mai multe sarcini mici Cronometrul nostru poate fi îmbunătățit Să luăm în considerare două propuneri În versiunea curentă a programului, nu există nicio modalitate de a seta cronometrul la zero Dacă apăsați butonul Stop și apoi Porniți din nou, cronometrul va continua să numere timpul de unde s-a oprit Introduceți alt buton de comandă de resetare - & Resetare Codul pentru acesta ar trebui să fie așa: IblTime Caption - Despre De asemenea, cronometrul afișează doar secunde întregi Este prea inexact Schimbați valoarea proprietății Interval a controlului Timer de la la , apoi cronometrul va genera un eveniment la fiecare zecime de secundă Schimbați codul programului în consecință: IblTime Caption = IblTime Caption + , Deoarece Visual Basic este un program american, nu funcționează cu virgulă zecimală, ci cu virgulă zecimală Țineți cont de acest lucru când lucrați cu numere zecimale, altfel va apărea o eroare Elementele PIctureBox și Image Ultimele două controale pe care le vom discuta în acest capitol sunt pentru afișarea imaginilor (grafice, pictograme și așa mai departe) În acest sens, ele stau la baza tuturor jocurilor pe calculator desenate manual Dacă aveți deja experiență în programare, atunci asigurați-vă că vă familiarizați cu grafica în mediul Visual Basic - acesta este un subiect extrem de interesant Să vedem ce poți face cu aceste comenzi și cum diferă între ele Creați un nou proiect, denumiți formularul frmGraphic și setați proprietatea Caption la Graphics Program (sau ceva de genul acesta) Poziționați controlul PictureBox și controlul Image pe formular Pictograma PictureBox este în partea dreaptă sus a panoului, iar pictograma Imagine este în partea stângă jos a panoului Numiți controlul PictureBox pi cu Picture Mai întâi, faceți clic pe proprietatea Imagine, apoi faceți clic pe butonul cu puncte de suspensie care apare În caseta de dialog care se deschide, selectați fișierul grafic dorit Dacă ați finalizat o instalare completă a programului Visual Basic, atunci aveți posibilitatea de a selecta fișierul grafic la alegere În subfolderul COMMON/GRAPHICS/BITMAPS/ASSORTED al folderului Microsoft Visual Studio creat când a fost instalat Visual Basic, am specificat fișierul HEART BMP (desigur, puteți specifica un alt fișier) Pe ecran apare o imagine - o inimă Este situat în colțul din stânga sus al elementului de control Dacă setați proprietatea Autosize la True, atunci dimensiunea controlului se va potrivi cu dimensiunea imaginii Ar fi posibil să schimbați dimensiunea inimii în orice fel, dacă ar fi posibil să setați mai întâi dimensiunea elementului de control și apoi să schimbați dimensiunea imaginii în consecință Elementul PictureBox nu oferă această capacitate În astfel de scopuri, este utilizat controlul Imagine Selectați controlul Imagine (faceți clic pe el) Denumiți-o imagine și setați proprietatea Imagine la o imagine de inimă Puteți redimensiona elementul după cum doriți, dar dimensiunea imaginii se va modifica în consecință numai dacă proprietatea Stretch este setată la True Când redimensionați elementul de control, asigurați-vă că proporțiile nu sunt încălcate, altfel inima va căpăta un aspect foarte ciudat Elementele formularului ar trebui să arate cam așa: Stânga - element PictureBox, dreapta - /tade Mai multe sarcini mici La sfârșitul acestui capitol, vă puteți relaxa puțin Selectați câteva imagini din materialele furnizate cu sistemul Visual Basic și încărcați-le într-un control PictureBox sau Image Experimentați cu proprietățile Autosize și Stretch constatări Deci, am luat în considerare principalele controale Pe unii dintre ceilalți îi veți întâlni mai târziu Dacă țineți cont de faptul că am programat până acum fără a scrie cod, ci pur și simplu folosind controale, atunci veți înțelege ce posibilități oferă Visual Basic Primii pași În acest capitol, vor fi făcute primele încercări de a stăpâni limbajul de programare Visual Basic folosind controalele pe care le-ați întâlnit în secțiunea anterioară În acest capitol veți învăța: • modul de planificare a creării programului; • care sunt modurile de executare a programului; • cum să înveți un computer să numere; • ce înseamnă termenul „operator postfix”, și de ce este atât de important; • ce sunt variabilele și cum le amintește un computer; • ce se înțelege prin anunț; • cum se deschide fereastra de depanare pentru a testa programul și a căuta erori Moduri de executare a programului Modurile de execuție ale unui program determină ce ar trebui să facă în anumite condiții Dacă modurile nu sunt setate, programul face întotdeauna același lucru și acest lucru poate fi insuficient Să presupunem că într-un joc pe computer controlezi o navă spațială Ar trebui să poată trage U din pistolul de la bord și să facă acest lucru numai atunci când efectuați o anumită acțiune, cum ar fi apăsarea unui buton joystick Apăsarea este o condiție în care programul simulează o lovitură Ce caracteristici ar trebui să aibă, de exemplu, programul „Calculator”? Trebuie să poată lucra cu două numere introduse, să efectueze operațiile aritmetice specificate asupra lor și să dea rezultatul corect Tentația de a începe programarea imediat este mare Nu va grabiti! Fiecare proiect de software trebuie să fie precedat de o planificare atentă cu un simplu creion și hârtie sau, să zicem, Word , dar în oricum fără a folosi un limbaj de programare Nu prea distractiv, știu, dar D nu se poate lipsi Când faceți un plan, trebuie mai întâi să determinați ce capacități va avea programul Cert este că uneori este foarte dificil să introduci o funcție uitată în timpul planificării într-o aplicație mai mult sau mai puțin terminată u Programul Calculator trebuie să efectueze operații aritmetice elementare (adunare, scădere, înmulțire și împărțire) Cred că este suficient pentru a începe Deoarece utilizatorul selectează de fiecare dată doar una dintre aceste acțiuni, pare destul de potrivit să îi ofere opțiunile adecvate sub forma unui set de controale OptionButton (din mai multe astfel de elemente, doar unul este selectat) În plus, utilizatorul va avea nevoie de două câmpuri de introducere (câte unul pentru fiecare număr), un buton de comandă, după apăsarea căruia se va efectua calculul și un câmp pentru afișarea rezultatului Trebuie să setăm programatic operația aritmetică (specificată când a fost selectat OptionButton) să fie efectuată după ce este apăsat butonul de comandă OK În plus, ar trebui luate și unele măsuri de precauție, precum interzicerea împărțirii la zero etc Cum să faci asta exact, vei vedea în viitor Mai întâi, să ne uităm la aspectul programului, adică vom plasa elementele de control necesare în formular Creați un nou proiect, întindeți forma principală puțin lățime și înălțime (vom avea nevoie de o zonă relativ mare) și denumiți fereastra frmCalc Setați proprietatea Legendă la Calculator În continuare, avem nevoie de două ferestre TextBox în care utilizatorul va introduce numere Aranjați ferestrele în formular, denumiți unul txtNuml, celălalt txtNum (în engleză, număr înseamnă „număr”) și introduceți valoarea pentru ambele în câmpul de proprietate Text Următoarele descrieri de format (așa-numitele proprietăți de setare ale formularelor și controalelor) sunt aceleași pentru ambele elemente TextBox Vă amintiți tehnica prin care aceleași proprietăți ale mai multor elemente sunt stabilite simultan? Acest lucru este discutat în Capitolul (secțiunea „Elementele CheckBox și OptionButton”) Selectați primul obiect (txtNuml) făcând clic pe el Apăsați tasta Shift și, ținând-o în această poziție, selectați elementele rămase făcând clic pe ele mouse Toate obiectele selectate sunt înconjurate de suporturi care vă permit să lucrați cu toate elementele în același timp Selecția va rămâne atâta timp cât nu faceți clic cu mouse-ul pe un loc liber de obiecte din formular Deci, să îmbunătățim ușor aspectul elementelor TextBox Mai întâi de toate, setați valoarea proprietății Height (Height) egală cu și Width (Width) - Ați observat că ambele controale s-au schimbat în același timp? Această caracteristică este într-adevăr foarte utilă Să schimbăm dimensiunea fontului Desigur, vă amintiți că acest lucru se face folosind proprietatea Font Alegeți fontul MS Sans Șerif, Bold (Bold) cu o dimensiune de puncte Acum șase numere se vor potrivi în câmpul fiecărui element TextBox Acest lucru este suficient pentru un număr întreg de șase cifre sau un număr zecimal cu virgulă mobilă mai mic corespunzător Alinierea la stânga a textului din fiecare element TextBox nu arată bine Să folosim proprietatea Alignment pentru a o alinia la dreapta • Puteți seta această proprietate numai dacă proprietatea MultiLine a elementului TextBox este setată la True Proprietatea MultiLine determină dacă textul poate fi introdus în câmpul elementului TextBox, format din linii multiple Și, în sfârșit, să aranjam controalele TextBox pe formular astfel încât să fie la aceeași distanță de marginile acestuia Îți amintești cum se face? Așa este, cu ajutorul comenzilor Center in Form și Orizontal executate consecvent din meniul Format Acum forma noastră arată destul de bine Pentru orice eventualitate, comparați rezultatul cu această cifră: Formă într-o etapă intermediară de lucru Patru elemente OptionButton trebuie plasate între elementele TextBox pentru a selecta o operație aritmetică Dacă nu există suficient spațiu, mutați elementele TextBox una de cealaltă Setați valoarea Înălțimii pentru elementele noi la Pentru valorile Nume și Legendă, specificați următoarele (de sus în jos): Nume OptAdd OptSub OptMult OptDiv Legendă Adunare Scădere Înmulțire Diviziune Numele și titlul elementelor OptionButton În prezentarea următoare, proprietățile elementului de control vor fi prezentate sub forma unui tabel Selectați toate elementele OptionButton și aliniați-le orizontal în fereastra formularului Avem nevoie de un buton pentru a începe procesul de calcul În plus, aveți nevoie de un câmp pentru a afișa rezultatul Un buton de comandă (CommandButton) este potrivit ca atare buton Și pentru a afișa rezultatul, utilizați controlul Labei De ce nu TextBox? Pentru că Labei servește doar la eliberarea unui rezultat În câmpul altui element Labei, scrieți Rezultat astfel încât scopul acestuia să fie clar Valorile proprietăților elementelor menționate sunt enumerate în următorul tabel: Control Nume Font subtitrare butonul de comanda Labei Labei cmdStart IbIResult IblOutput &Start Rezultat: O MS Sans Șerif, normal, MS Sans Șerif, m/f, MS Sans Șerif, m/f, Fereastra formularului arată astfel: Designul extern al programului este finalizat Dacă doriți, adăugați un alt buton de comandă pentru a ieși din aplicație și scrieți codul corespunzător Și acum începem în sfârșit programarea! Trebuie să scriem cod, astfel încât aplicația să înceapă să ruleze atunci când este apăsat butonul Start Faceți dublu clic pe acest buton cu mouse-ul Veți fi dus la fereastra de cod, în care veți vedea următorul text: Cadrul programului Deși am văzut deja acest text de multe ori, acum vom discuta despre fragmentul cmdStart Click () mai detaliat (vom vorbi mai târziu despre ce înseamnă Private Sub) Puteți vedea că acest cuvânt dublu începe cu numele butonului (noi am numit controlul cmdStart) Acesta este urmat de un caracter de subliniere și de cuvântul Click În acest caz, Click înseamnă un eveniment (un clic de mouse făcut de utilizator) la care această parte a programului reacționează Cu alte cuvinte, cmdStart Click înseamnă: atenție, în acest loc începe o parte din codul programului care se execută la apăsarea butonului Start Parantezele de după cuvântul Click sunt obligatorii Au o semnificație specială, despre care vom discuta mai târziu Pentru a clarifica faptul că această parte a codului programului sa încheiat, textul End Sub este la sfârșit După aceasta, începe o altă parte a codului Apropo, Click este departe de singurul eveniment la care programul poate răspunde Priviți în partea de sus a ferestrei, chiar sub bara de titlu, pe care scrie Project - frmCalc(Code) Are două liste derulante În stânga este numele controlului, iar în dreapta sunt posibilele evenimente Iată cum arată fereastra dacă extindeți lista de evenimente posibile pentru butonul cmdStart: Câte lucruri se pot întâmpla Nu te lăsa descurajat de numărul mare de evenimente posibile Te vei familiariza treptat cu cele mai importante dintre ele În cazul nostru, sistemul Visual Basic însuși a ales evenimentul Click Acest lucru este destul de natural, deoarece apăsarea este un eveniment tipic pentru un buton de comandă Deci, în cadru trebuie să introduceți codul programului care va spune programului ce ar trebui să facă atunci când este apăsat butonul Start Să începem cu adăugarea Trebuie să fie executat dacă este selectat elementul OptionButton numit optAdd Puteți afla dacă este selectat folosind proprietatea Value a elementului Poate lua valorile True sau False Adevărat înseamnă „selectat”, False înseamnă „neselectat” Astfel, avem o condiție a cărei îndeplinire trebuie verificată După cum știți din capitolul , acest lucru se face folosind constructul if În acest caz, arată astfel: Dacă optAdd Value = Adevărat, atunci Încheiați dacă Cu alte cuvinte: „Dacă valoarea proprietății Value a elementului optAdd este True, atunci ” Introdu acest cod Dacă ați urmărit cu atenție prezentarea, probabil ați observat că numele elementului de control (optAdd) și proprietatea acestuia (Value) sunt legate între ele printr-un punct În limbajul programatorilor, se numește operator postfix Acesta este un alt concept de reținut Cu toate acestea, principiul din spatele acestuia este mai important Dacă doriți să accesați o proprietate a unui element de control din codul programului, atunci procedați întotdeauna după cum urmează: sleep mai întâi scrieți numele controlului, apoi puneți un punct și apoi specificați proprietatea acestuia Acest principiu este atât de important încât îl voi explica cu un alt exemplu Atunci când alegem aspectul formularului, setăm înălțimea (proprietatea Height) elementelor TextBox la Să presupunem că dintr-un motiv oarecare doriți să o modificați în timpul execuției Apoi codul de program corespunzător devine: txtNuml Height = Tot clar? Numele controlului este primul, urmat de un punct, urmat de proprietate și valoarea după semnul egal Acum trebuie să spunem programului ce ar trebui să facă dacă condiția este îndeplinită Dorim ca numerele ambelor elemente TextBox (txtNuml și txtNum ) să fie adăugate una la alta, iar rezultatul apare în câmpul de ieșire Conținutul unui element TextBox este determinat de proprietatea sa Text În câmpul acestei proprietăți, ați specificat o valoare nulă pentru ambele elemente Și ceea ce este în câmpul elementului Labei este determinat de proprietatea sa Caption Să încercăm să adăugăm txtNuml Text (din nou un operator postfix - acum îl vom folosi tot timpul) și txtNum text: txtNuml Text + txtNum Text Trebuie să scriem rezultatul adăugării la antetul elementului Labei În această situație, vorbim de o atribuire: atribuim o valoare (și anume rezultatul adunării) proprietății Caption a controlului Labei (care în prezent are valoarea zero) În Visual Basic, această operație este efectuată folosind semnul egal Semnul egal în Visual Basic nu înseamnă doar că două valori sunt egale, ci, în funcție de context, că valoarea din partea dreaptă a egalității este atribuită valorii din partea stângă Această operațiune este atât de importantă încât vom reveni la ea în curând, iar acum vom scrie: LblOutput Caption - txtNuml Text + txtNum Text Includeți această linie în construcția if Astfel, întregul cod al programului arată acum astfel (încă nu acordați atenție cuvintelor Opțiune explicită): O încercare de a adăuga Este timpul să testăm programul Introduceți oricare două numere în câmpurile elementelor TextBox (eu am introdus și ), faceți clic pe comutatorul Adăugare (în plus în engleză) și faceți clic pe butonul Start Veți vedea următoarele: Din păcate, aplicația nu funcționează Nimic nu a reușit În câmpul de ieșire nu vedem rezultatul adunării, ci două numere introduse scrise unul lângă celălalt De ce s-a întâmplat? Pentru a înțelege acest lucru, vom studia variabilele Dar mai întâi, nu uitați să salvați proiectul Conceptul de variabilă Creați un nou proiect Faceți dublu clic pe formular pentru a deschide fereastra de cod Private Sub Form Load() end sub Acest cod vă este familiar din secțiunea din capitolul unde am vorbit despre elementele ScrollBar Introduceți următoarele rânduri în acest cadru: Opțiune Explicit Dim X As Integer Dim Y As Integer X = Y= Debug Prinț X + Y Cât de mult nou! Să aruncăm o privire mai atentă la acest cod Nu este deloc atât de complicat pe cât pare Să începem cu ultima linie Cuvântul Debug în engleză înseamnă „eliminarea erorilor”, iar Prinț indică faptul că unele date trebuie afișate pe ecran (sau imprimantă) Astfel, puteți verifica rapid rezultatele obținute fără a introduce controale suplimentare în formular Aceasta este o metodă foarte eficientă pentru a găsi erori într-un program Dacă, de exemplu, scrieți „Petru” (cu ghilimele!) în textul programului Debug Prinț, se va deschide fereastra de depanare cu cuvântul Piotr Și care va fi rezultatul dacă scrieți Debug în program Prințul X + Y? Încercați și veți vedea ce obțineți Sistemul Visual Basic a adăugat evident și , adică a înlocuit literele X și Y cu valorile numerice care au fost atribuite în rândurile anterioare (folosind semnul egal) Deci, atunci când programul este executat, utilizatorul introduce unele date, cum ar fi numele său sau două numere Sistemul Visual Basic trebuie să le amintească, sau mai degrabă să le salveze în memoria RAM a computerului Pentru aceasta se folosesc așa-numitele variabile (în cazul nostru, X și Y), în care sunt înregistrate datele introduse Informațiile pot fi introduse în diferite moduri: direct în codul programului, ca în exemplul nostru, sau ca urmare a acțiunilor utilizatorului atunci când acesta introduce date în câmpul elementului TextBox Așa că hai să repetăm: În linia de program X = , variabilei X i se atribuie valoarea (în engleză, variabila se numește variabilă) Și - într-adevăr, variabilele noastre se pot schimba în timpul execuției programului Ce înseamnă? Introduceți după Debug Prinț următoarele rânduri: X= Depanare Prințul X Rulați programul Veți vedea care apar în fereastra de depanare Pentru o mai mare claritate, arăt codul programului și rezultatul afișat în fereastra de depanare în figuri: Fereastra de cod Rezultat în fereastra de depanare b' De regulă, variabilele sunt introduse în codul programului: X O variabilă i se atribuie o valoare și un nume este folosit pentru a o desemna (în exemplul nostru, X) Calculele sunt efectuate, de exemplu, în felul următor: x= Y= Z=X+Y Depanare principiul Z Din anumite motive, nu vom folosi astfel de nume de variabile în viitor Acordați atenție unei circumstanțe foarte importante Faptul este că, pentru programe atât de scurte ca în acest caz, chiar și după o lungă perioadă de timp, nu veți avea dificultăți să înțelegeți ce înseamnă X, Y și Z - acest lucru este ușor de ghicit Dar aplicațiile tale vor deveni mai lungi și mai complexe, iar la un moment dat nu vei mai înțelege ce înseamnă cutare sau cutare variabilă Pentru a evita această problemă, este necesar să se dea nume semnificative variabilelor De exemplu, puteți utiliza AdditionNuml în loc de X, AdditionNum în loc de Y și AdditionResult în loc de Z Astfel, codul programului va deveni mai ușor de înțeles, în ciuda cantității mai mari de muncă daca tu în câteva luni vei dori să refaci sau să extinzi programul, îți vei fi recunoscător pentru tine chibzuire Cu toate acestea, apare o altă problemă cu utilizarea numelor lungi - pericolul de a face o greșeală de tipar predispusă la greșeli Să presupunem că există o variabilă în program căreia îi atribuiți valoarea , după cum urmează: Muvagiabye = Pentru a crește valoarea unei variabile cu una, scrieți următoarea linie în textul programului: MyVariabel - MyVariable + Vedeți eroarea? Va duce la faptul că o nouă variabilă MyVariabel va apărea cu valoarea Valoarea variabilei MyVariable, dimpotrivă, va rămâne egală cu Puteți căuta astfel de erori pe termen nelimitat Vă sfătuiesc cu tărie să configurați mediul de programare în așa fel încât variabilele să fie declarate explicit Apoi, în cazul unei greșeli de scriere, computerul va afișa un mesaj de eroare care arată astfel: "Nu cunosc variabila Test!" Și cum se configurează Visual Basic în acest fel? În meniul Instrumente (Service) specificați în mod consecvent comenzile Opțiuni (Parametri) Editor (Editor) și bifați caseta Solicitați declarația Vagiya (Declarația explicită a variabilelor) Fereastra corespunzătoare arată astfel: Casetă de selectare a doua linie de sus De acum înainte, în aplicațiile tale viitoare, la începutul codului programului, se va adăuga aceeași linie criptică Option Explicit care a fost menționată chiar la începutul cărții În acest caz, cuvântul Explicit înseamnă „explicit”, adică variabilele sunt declarate explicit în textul programului Declarația (sau descrierea) are loc folosind operatorul Dim (din cuvântul dimensiune - dimensiune) În acest fel, codul programului scris la începutul acestei secțiuni devine treptat mai clar Să-i amintesc: Opțiunea explicită Dim X ca întreg Dim Y ca întreg x= Y= Debug Prinț X + Y O singură întrebare rămâne deschisă Ce înseamnă As Integer într-o declarație de variabilă? Spuneți Ca Integer, spuneți Visual Basic că variabila (X sau Y în exemplul nostru) ar trebui să fie de tipul de date Integer Ce este un „tip de date”? Variabilele ocupă un anumit spațiu în memoria RAM a computerului, care este necesar programului pentru a-și aminti valorile Dar exact câte locuri trebuie să rezervi? Este clar că un text lung în memorie necesită mai mult spațiu decât un singur număr Prin urmare, există diverse tipuri de date, dintre care cele mai importante le vom lua în considerare mai jos Nu trebuie să le memorați: pe măsură ce scrieți programe, le veți aminti treptat Tip de date Interval de valori Octeți întregi de la la Număr întreg Număr întregi de la - la Numere întregi lungi de la - la Numere unice cu virgulă mobilă (de exemplu, , ) (Nu uitați să puneți un punct în loc de virgulă!) String Date text, așa-numitele șiruri (cum ar fi Visual Basic) Acestea sunt doar o mică și importantă parte din tipurile de date pe care le oferă limbajul Visual Basic Se poate observa că numai pentru numere întregi există trei tipuri de date diferite În astfel de cazuri, există o regulă strictă și rapidă: alegeți întotdeauna cel mai mic tip de care puteți fi sigur că atunci când rulați programul, nu va fi niciodată (chiar dacă utilizatorul introduce date complet absurde) nu vor fi insuficiente Dacă, de exemplu, lucrați în intervalul de numere de la la (de exemplu, într-un program care funcționează pe luni), puteți utiliza în siguranță tipul de octet pentru variabilă Dacă în program sunt întâlnite numere în virgulă mobilă, atunci este rezonabil să utilizați tipul Single Și încă o notă: atunci când declarați o variabilă, puteți omite tipul de date și doar scrieți Dim X x= În acest caz, Visual Basic selectează tipul de date Variant, care este valabil pentru majoritatea valorilor variabilelor posibile Dar de aceea aplicațiile scrise folosind acest tip de date rulează mult mai lent decât cele în care programatorii au ales cele mai potrivite tipuri Așa vom face Calcule în Visual Basic Să revenim la Calculator Deschideți din nou acest proiect Îți amintești de unde am rămas? Trebuie să găsim o eroare care să împiedice adăugarea numerelor introduse în câmpurile elementelor txtNuml și txtNum Acum că știm atât de multe despre variabile, vom găsi rapid această eroare Intrarea TxtNuml Text nu conține un număr, ci un text, adică (vezi tabelul de mai sus) o variabilă de tip String O variabilă de acest tip nu constă neapărat din litere, așa cum s-ar putea crede mai întâi Desigur, tastați sarcinile Dim MyString ca șir MyString - „Numele meu este Sergey” apar foarte des, iar importanța lor practică este foarte mare (nu uitați să puneți ghilimele) Cu toate acestea, numerele sunt introduse și ca text Și asta e bine - cine adună numerele de telefon? Nu poți număra cu variabile String! Dacă conectați mai multe variabile de acest tip cu semne plus sau (&), atunci liniile vor fi scrise una după alta Acum înțelegeți de ce programul nostru, când a adăugat și , a primit răspunsul greșit - a scris două variabile de tip String una după alta Ce sa fac? Atâtea probleme cu adunarea simplă Un lucru este clar: trebuie să convertim cumva valorile conținute în marjele ambelor elemente TextBox în numere Dacă se face acest lucru, programul va funcționa corect Convertirea unei variabile String într-un număr în Visual Basic SE face cu o comandă simplă Se numește rȚ\ Val, iar variabila de \t convertită se scrie după cuvântul val între paranteze Strict vorbind, Val este o funcție (ne vom familiariza cu acest concept puțin mai târziu) Voi da un exemplu: Private Sub Form Load() Dim Number As Integer Dim MyString ca șir MyString = „ ” Număr = Val(MyString) Debug Printa Number end sub Deci, deschideți un nou proiect și faceți dublu clic oriunde pe formular Cadrul programului apare pe ecran Declarați variabile de tipuri Integer și String în el folosind cuvântul Dim După aceea, atribuiți o valoare unei variabile String Deoarece tipul variabilei este String, această valoare este cuprinsă între ghilimele Cu Val, această variabilă este convertită într-un număr, pe care îl alocați unei variabile de tip Integer Apoi, folosind comanda Debug Prinț este afișat în fereastra de depanare Experimentați puțin mai mult cu tipul de date String, numere și conversie Luați o literă ca valoare pentru o variabilă String și vedeți ce se întâmplă Încercați să utilizați un amestec de litere și numere în experiment (de exemplu, ²) Acum înțelegi cum ar trebui să arate adăugarea? Opțiunea corectă este: LblResult Caption = Val(txtNuml Text) + Val(txtNum Text) Astfel, valoarea pe care utilizatorul a introdus-o în câmpul primului element TextBox este convertită într-un număr La fel se procedează cu valoarea introdusă în câmpul celui de-al doilea element TextBox Rezultatul sunt două numere care trebuie adăugate Rezultatul este scris în elementul Labei pentru ieșire Faceți modificările corespunzătoare în programul Calculator Ar trebui să arate așa: Corect plus Să testăm aplicația Rulați-l, selectați elementul Adăugare și apăsați butonul Start Veți vedea că aplicația a funcționat corect Acum să trecem la scădere Să numim elementul OptionButton corespunzător opt Sub După primul if construct, adăugați următoarele linii: Dacă optSub Value = Adevărat, atunci LblResult Caption = Val(txtNuml Text) - Val(txtNum Text) Încheiați dacă (Textul din cadrul aplicației trebuie, desigur, să fie scris pe un singur rând! Doar că cartea nu este suficient de largă ) Introduceți text în aplicație Dacă apoi apăsați butonul F , selectați elementul Scădere (în engleză scădere) și introduceți două numere, apoi după apăsarea butonului Start veți vedea că programul funcționează corect Chiar și valorile negative care apar dacă primul număr este mai mic decât al doilea sunt afișate corect Aplicația pentru calculatoare atunci când faceți scăderea Să facem înmulțirea Având în vedere că semnul de înmulțire corespunzător este notat cu un asterisc (*), codul programului va lua următoarea formă: Dacă optMult Value = Adevărat, atunci LblResult Caption = Val(txtNuml Text) * Val(txtNum Text) Încheiați dacă (Nu uitați că textul trebuie scris într-un singur rând ) Faceți controlul IblResult suficient de larg pentru a se potrivi cu numere mari Dacă înmulțiți cu (cele mai mari numere din șase cifre), obțineți operațiunea de diviziune Odată cu operațiunea de divizare, situația este ceva mai complicată De fapt, limbajul Visual Basic cunoaște trei (!) tipuri diferite de diviziune Trebuie să le înțelegem, deoarece toate sunt folosite în practica de zi cu zi Cazul obișnuit este diviziunea în virgulă mobilă Cu acest tip de împărțire se calculează zecimale după aceasta Deci, rezultatul împărțirii a la se scrie ca , Notația pentru acest tip de împărțire este simbolul (/), adică bara oblică obișnuită Faceți dublu clic pe formularul gol și introduceți următorul text ca cod (între liniile Private Sub Form Load () - End Sub): Debug Printa / Uitați-vă la rezultatul care apare în fereastra de depanare Introduceți alte numere, cum ar fi virgulă mobilă: , și , Nu uitați să puneți un punct în loc de virgulă! Al doilea tip de împărțire este împărțirea întregului, al cărei rezultat este întotdeauna un număr întreg, iar zecimale sunt eliminate fără rotunjire Notația pentru acest tip de împărțire este caracterul backslash (\) În Visual Basic, rezultatul operației \ este , iar restul este eliminat Experimentați (folosind comanda Debug Prinț) cu acest tip de împărțire În exemplul anterior, restul diviziunii a fost Puteți obține acest rezultat folosind al treilea tip de diviziune utilizat în limbajul Visual Basic, mod, așa-numita diviziune modulo Comanda pentru efectuarea acestui tip de împărțire este următoarea: mod De exemplu, mod are ca rezultat , deoarece este de două ori în , iar restul este Un alt exemplu: mod Calculul se face după cum urmează: se încadrează în numărul de trei ori (respectiv, \ \u d ), iar restul este De ce avem nevoie de operațiuni ca ultimele două? De ce să nu folosiți pur și simplu diviziunea în virgulă mobilă (este cea mai precisă până la urmă)? Să presupunem că atunci când lucrați cu programul este necesar să stabilim dacă numărul introdus de utilizator este par sau impar Cel mai simplu mod de a face acest lucru este să utilizați operația modulo sarcină mică Scrieți o aplicație care determină dacă intrarea unui utilizator este pară sau impară și afișează rezultatul corespunzător într-un MessageBox Câteva indicii: Utilizatorul trebuie să introducă un număr în controlul TextBox Acest text trebuie convertit într-un număr utilizând comanda Val Folosind modulo, programul trebuie să determine dacă acest număr este par sau impar Să presupunem că este stocat în variabila InputNumber Apoi, trebuie să procedați după cum urmează: Dacă InputNumber mod = , atunci și în mod corespunzător, Dacă InputNumber mod = , atunci Să fie dat numărul (un număr par) Apoi rezultatul operației mod este Pentru numărul (un număr impar), rezultatul acestei operații este Construcția if-then trebuie să fie urmată de MessageBox corespunzătoare Sugestie pentru rezolvarea acestei sarcini Ca excepție, vă voi arăta soluția problemei, deoarece pe parcurs este necesar să faceți mai multe explicații Dar nu fi leneș! Te sfatuiesc sa citesti aceasta sectiune dupa tine dezvolta propriul program Puteți să o comparați cu a mea sau să căutați soluția dacă nu reușiți să finalizați sarcina în cauză Formularul ar trebui să arate astfel: Dacă TextBox se numește txtlnput și butonul de comandă este cmdOK, atunci codul corespunzător arată astfel: ІІ ProjectU - Forrnl (Cod) □ |x jcmdOK ^ Opțiune explicită Private Sub cmdOK Click() Dim InputNumber As Integer InputNumber = Val(txtlnput Text) Dacă InputNumber Mod = Atunci MsgBox „Ați introdus un număr par” End If Dacă InputNumber Mod = , atunci MsgBox „Ați introdus un număr impar” End lf| end sub După cum puteți vedea, am legat tot codul la butonul de comandă OK Desigur, existau și alte posibilități Gândiți-vă care dintre ele Aplicația poate fi îmbunătățită din punct de vedere al aspectului De exemplu, aliniați textul din câmpul de intrare al controlului la dreapta În plus, ar trebui să schimbăm culoarea gri plictisitoare a formei noastre Pentru a face acest lucru, faceți clic pe el cu mouse-ul într-un mod liber de control elemente de localizare Formularul va deveni un obiect activ care poate fi modificat folosind fereastra de proprietăți Faceți clic în câmpul de proprietate BackColor și experimentați puțin cu această proprietate Cu siguranță vei găsi ceva potrivit Această carte nu acoperă toate proprietățile controalelor Dar veți învăța multe dacă lucrați independent cu diferite proprietăți, le schimbați și comparați rezultatele Nu uitați să îl salvați pe cel vechi de fiecare dată înainte de a începe un nou proiect Lansați aplicația Pe ecran va apărea următoarea fereastră: Numărătoarea continuă Să terminăm lucrul la programul „Calculator” Cum va arăta codul corespunzător operațiunii de divizare? Acum înțelegem cum este scris: Dacă optDiv Value - Adevărat, atunci LblResult Caption = Val(txtNuml Text) / J Val(txtNum Text) Încheiați dacă Aici și mai jos, simbolul (J) înseamnă că codul programului este împărțit în mai multe rânduri în carte din motive tehnice Trebuie să îl introduceți pe o singură linie! (Nu trebuie să tastați J în acest caz, desigur ) Mai este ceva în aplicația noastră care nu îmi place deloc Rulați-l și împărțiți la După cum știți din cursul de algebră școlară, rezultatul este o fracție periodică, care, cu toată dorința noastră, nu se va încadra în niciun câmp de ieșire De asemenea, încercați să împărțiți un număr la Visual Basic vă va da un mesaj de eroare de rulare errr : împărțire la zero și ieșiți din program Ambele ar trebui corectate În primul rând, vom limita numărul de zecimale din câmpul de introducere la două (desigur, puteți lăsa trei sau mai multe zecimale) Cum să o facă? Limbajul Visual Basic ne pune la dispozitie o functie speciala si anume Format În urma acestei comenzi, trebuie să specificați valoarea reprezentată într-un anumit mod Cu alte cuvinte, ar trebui să fie formatat În spatele lui, între ghilimele, scrieți tipul de formatare În cazul nostru, „ , ” Aceasta înseamnă că într-un fel sau altul, vor fi afișate doar două zecimale, iar Visual Basic va rotunji corect în sus sau în jos În acest caz, zerourile din specificația formatului sunt înlocuite cu numere specifice Dacă există mai multe cifre înainte de punctul zecimal, atunci toate, desigur, sunt păstrate Până acum, prezentarea a fost oarecum abstractă Să ne uităm la un exemplu specific al aplicației noastre Calculator, cum sunt efectuate operațiunile descrise În primul rând, avem nevoie de o variabilă suplimentară care să stocheze rezultatul împărțirii O vom declara ca o variabilă de tip Single, deoarece numerele în virgulă mobilă pot apărea în timpul divizării (Dacă ați uitat ce este un tip, recitiți secțiunea Înțelegerea unei variabile ) În noul cod de program legat de divizare, scriem următoarele: Dacă optDiv Value - Adevărat, atunci Dim rezultat ca single Încheiați dacă Să atribuim acestei variabile o valoare ca aceasta: Rezultat = Val(txtNuml Text) / Val(txtNum Text) În principiu, noul text diferă ușor de textul original și sper că îl înțelegeți Pentru orice eventualitate, voi explica pe scurt esența lui În valorile txtNuml Text și txtNum Textele sunt stocate ca text (adică ca valori de tip String) numerele introduse de utilizator Funcția Val convertește acest text în numere Numerele rezultate sunt împărțite între ele Acest lucru se face folosind semnul de împărțire (/) Rezultatul împărțirii este atribuit variabilei Rezultat Vom continua să lucrăm cu ea Acum intră în joc comanda Format despre care tocmai v-am spus Între paranteze, cuvântul Format este urmat de valoarea de formatat, iar apoi este indicat tipul de formatare Scriem comanda după cum urmează: Format(Rezultat, „ , ”) Deci, ca rezultat al calculului, numărul de zecimale este limitat la două Scrieți următorul text în câmpul de ieșire: IblOutput Caption = Format(Rezultat, „ , ”) Gata Cred că ți-am explicat totul suficient de detaliat pentru ca totul să fie clar pentru tine În caz contrar, citiți din nou această secțiune Multe lucruri devin mai clare când o citești din nou S-ar putea să vă întrebați de ce a fost introdusă variabila suplimentară Rezultat De fapt, nu este nevoie de asta Acesta servește doar pentru a face codul programului mai ușor de înțeles Dacă nu se face acest lucru, rezultatul poate fi formatat direct Codul corespunzător ar arăta astfel: IblResult Caption - Format(Val(txtNuml Text) / J Val(txtNum Text), „ ”) Acest text este foarte greu de înțeles Amintiți-vă: programarea nu este arta de a scrie totul cât mai greu posibil (deși unii programatori cred că da) Deci, dacă ați schimbat deja construcția if pentru divizare, puteți executa programul Super program! Încercați să împărțiți numere diferite între ele Veți vedea că aplicația funcționează fără erori până când împărțiți la zero Așa e, încă nu ne-am ocupat să interzicem o astfel de operațiune Vom rezolva această problemă cu o instrucțiune simplă if care va verifica dacă valoarea nu este txtNum Textul este nul Dacă da, vom informa utilizatorul că este pe cale să efectueze o operațiune ilegală În plus, ne vom asigura că nu se efectuează o astfel de împărțire Acest lucru se face în acest fel: Dacă txtNum Text = " " Atunci Caseta de mesaje „Diviziunea la zero nu este permisă!” ieșire sub Încheiați dacă Declarația Exit Sub anulează execuția ulterioară a procedurii Private Sub cmdStart Click() Într-adevăr, nu ar fi înțelept să subliniem mai întâi utilizatorului că a introdus un număr greșit și apoi să lași programul să ruleze Pentru ca tu să notezi corect tot codul legat de divizare, îl prezint în întregime: Dacă optDiv Value - Adevărat, atunci Dim rezultat ca single Dacă txtNum Text - „ ” Atunci Caseta de mesaje „Diviziunea la zero nu este permisă!” ieșire sub Încheiați dacă Rezultat - Val(txtNuml Text) / Val(txtNum Text) LblOutput Caption = Format(Rezultat, „ , ”) Încheiați dacă Și acum vă voi arăta cum arată întregul nostru cod de program: Design complicat și Dacă credeți că am terminat deja de lucrat la aplicația noastră, atunci vă înșelați Vom încerca să învățăm cum să folosim mai eficient construcția if Construcția if, care vă permite să aflați care dintre elementele OptionButton a fost selectată, nu îmi place în forma sa actuală Să presupunem că utilizatorul introduce două numere și apasă butonul Start, dar uită să specifice o operație aritmetică În acest caz, calculul nu este efectuat, deoarece niciuna dintre condițiile constructului if din programul nostru nu este îndeplinită În această situație, ar fi trebuit să afișăm un mesaj de eroare Din nou trebuie să folosim constructul if then-end if, care în acest caz ar trebui să arate astfel: Dacă condiția este îndeplinită, faceți următoarele Dacă nu funcționează, atunci faceți următoarele Tradus într-un limbaj de programare: Dacă Atunci Altfel Încheiați dacă Cuvântul else (însemnând „altfel” în engleză) este nou pentru noi Permiteți-mi să vă dau un mic exemplu Salvați Calculatorul dacă nu ați făcut-o deja Creați un nou proiect cu comenzile Labei, TextBox și un buton de comandă ca acesta: Nume Caption/Text control [ Labei TextBox CommandButton Ibllnput txtlnput cmdOK Introduceți un număr de la la (gol) &OK Vă voi arăta încă o dată cum arată shell-ul utilizatorului Pe viitor, mi se pare, deja te vei putea descurca doar cu tabele similare Faceți dublu clic pe butonul de comandă și introduceți următorul cod: Dacă txtInput Text ) Să revenim la Calculator Trebuie doar să adăugăm atingerea finală pentru a finaliza lucrarea la el Până acum, am creat un design specific pentru fiecare posibilitate Comanda else nu se potrivește de data aceasta: în care dintre cele patru constructe diferite ar putea fi folosită? În schimb, folosim următoarea structură: Dacă este selectată Adăugare, apoi pliază dacă în schimb este selectat elementul Scădere, apoi scade dacă în schimb este selectat elementul Înmulțire, apoi înmulțiți dacă este selectat elementul Diviziune, apoi delicatese, dacă nu este selectat nimic apoi emite un mesaj de eroare Condiția „dacă în schimb” în Visual Basic este Elself (scris într-un singur cuvânt!) Această comandă este în mod evident alcătuită din două cuvinte englezești Else și If Să folosim această construcție În același timp, vom șterge toate liniile individuale End If Acestea vor fi înlocuite cu o comandă End If la sfârșitul întregii structuri Această notație are și avantajul că textul codului programului devine mai scurt Pentru orice eventualitate, trebuie remarcat faptul că constructul I f din secțiunea de împărțire a codului programului rămâne intact Figura arată întregul cod al programului: Programul este gata Așa dacă constructele sunt foarte comune în programare și sunt foarte importante Trebuie să le stăpânești bine! Mai multe sarcini mici În secțiunea despre împărțirea modulo, am scris un mic program pentru a determina dacă un număr de intrare este par sau impar Rescrie-l pentru a include noua construcție Else În capitolul , am vorbit despre elementul ListBox și am folosit o instrucțiune if pentru a căuta un nume Înlocuiți constructele individual if cu un singur construct Elself Scrieți un program care solicită utilizatorului să introducă un număr cu mai multe zecimale Tipăriți acest număr cu trei zecimale Studii suplimentare despre Visual Basic Și acum ne jucăm puțin În primul rând, ne vom familiariza cu ciclurile - seturi de acțiuni care se repetă în mod constant În acest capitol veți învăța: • altceva despre controale; • altceva despre operatorul postfix; • modul de a face calculatorul să execute ciclul; • ce tipuri de cicluri există și cum sunt aranjate; • de ce sunt necesare comentarii în codul programului; • Ce altceva puteți face cu cronometrul În plus, vă veți familiariza cu elementele de bază ale graficii pe computer Crearea de cicluri Calculatoarele nu pot gândi, dar pot face multă muncă Prin urmare, acestea sunt necesare mai ales în cazurile în care este necesară efectuarea acelorași acțiuni pentru o perioadă suficient de lungă Amintiți-vă de exemplul navei spațiale care se mișcă pe ecran Să presupunem că zborul său nu este obstrucționat de nimic (obstacolele precum un atac inamic sunt, după cum știți din capitolul , un motiv pentru a trece la un alt mod de operare al aplicației) Apoi computerul trebuie să calculeze constant noua poziție a navei Dacă se mișcă de la stânga la dreapta de-a lungul unei axe x imaginare, atunci valoarea coordonatelor corespunzătoare crește continuu până la lățimea ecranului Pentru a înțelege mai bine despre ce vorbim, rețineți că axa x din Visual Basic are direcția tradițională, adică de la stânga la dreapta Axa Y este direcționată nu de jos în sus, așa cum este de obicei obișnuit, ci de sus în jos Ar trebui să te obișnuiești cu asta Apropo, un sistem de coordonate similar este acceptat nu numai în Visual Basic Punctul din colțul din stânga sus are astfel coordonatele ( ; ) Sistem de coordonate în Visual Basic Joc fii fillfii'm Creați un nou proiect, denumiți forma frmBall și gândiți-vă la un titlu potrivit, cum ar fi „Joc cu mingea” Pentru a trage o minge, utilizați pictograma Schimbare situată pe bara de instrumente (de obicei, pe a treia linie din stânga jos) Acesta este un control foarte util pentru programarea grafică, deoarece poate fi folosit pentru a desena forme geometrice de bază (rețineți că un programator nu trebuie să fie bun la desen) Apropo, formă înseamnă în engleză „formă” sau „imagine” Faceți dublu clic pe această pictogramă și controlul corespunzător va apărea pe formular Examinați formele geometrice disponibile în fereastra de proprietăți din câmpul Formă Alegeți opțiunea numărul , adică un cerc Numiți-i shpBall De regulă, bilele sunt opace Prin urmare, modificați valoarea proprietății BackStyle (Background type), specificând nu - Transparent (Transparent), ci - Opac (Opac) Culoarea de fundal este selectată în câmpul de proprietate BackColor Pentru a face acest lucru, faceți clic pe cuvântul Palette (Palette), apoi specificați culoarea care vă place Eu am ales rosul Dacă selectați acum un element exterior din formular, veți vedea că cadrul acestuia este vizibil mai lat decât este Pentru a remedia acest lucru, setați proprietatea Width la aceeași valoare ca și Height În cazul meu, valoarea pentru ambele proprietăți este , dar nu trebuie să setați aceleași valori În orice caz, cei patru suporturi din mijloc trebuie să fie exact la limita elementului Znare Setați proprietatea Left, care specifică poziția marginii din stânga a elementului Swape, la Pentru a face mingea să se miște, adăugați un buton de comandă (Nume: cmdStart, Legendă: Start) Formularul arată astfel: Atâta timp cât mingea rămâne nemișcată Să încercăm să învățăm cum să mișcăm mingea pe ecran Vă spun imediat că există metode mai elegante de lucru cu grafica decât cele despre care voi vorbi acum Cu toate acestea, în primul rând, trebuie să stăpânim ciclurile, iar calitatea reprezentării grafice a obiectului nu este atât de importantă pentru noi (este posibil ca imaginea mingii în mișcare să clipească) Pentru început, vom încerca să ne asigurăm că atunci când aplicația este executată, mingea se mișcă spre dreapta Acest lucru necesită ca valoarea proprietății Left a elementului shpBall să crească constant Permiteți-mi să vă reamintesc că pentru a accesa proprietățile unui element de control sau pentru a le modifica în timpul execuției programului, se folosește un operator postfix Acesta este un concept foarte important pe care trebuie neapărat să-l înveți Pe măsură ce înveți limba, vei înțelege că este absolut imposibil să lucrezi fără un operator postfix Dacă ați uitat ce este, recitiți secțiunea relevantă din Capitolul Permiteți-mi să vă reamintesc pe scurt că pentru a accesa proprietățile unui element de control din codul programului, trebuie să scrieți numele (Numele) celui dorit element, puneți un punct după el și apoi specificați numele proprietății Astfel, accesarea proprietății Left a mingii noastre (numită shpBall) arată astfel: shpBall Stânga Pentru a vă pregăti să scrieți aplicația, faceți dublu clic pe butonul cmdStart și introduceți următoarea linie în fereastra de cod: shpBall Left = De asemenea, puteți specifica un alt număr care depășește valoarea inițială (egal cu ) Când rulați programul, veți vedea că după apăsarea butonului Start, mingea se smuciază în alt loc de pe ecran Acesta este modul în care funcționează cu operatorul postfix Acum eliminați această linie din cod pe măsură ce trecem la bucle Următoarea noastră sarcină este să învățăm cum să mișcăm ușor mingea de la stânga la dreapta pentru buclă Faceți dublu clic pe butonul de comandă Start din nou și introduceți următoarele linii în fereastra de cod de program care se deschide: Dim i ca întreg Pentru i = , atunci ShpBall Left - shpBall Left + Apoi eu Iată codul meu pentru comparație: Prima noastră buclă pentru Să aruncăm o privire la acest cod Prima linie declară variabila utilizată în aplicație Urmează așa-numitul bloc de procesare, și anume bucla for next Este executat de câte ori este specificat în comanda după instrucțiunea for (în cazul nostru, de de ori) La fiecare iterație a buclei, valoarea lui shpBall Stânga este mărită cu unu Dacă valoarea inițială a acestei valori în fereastra de proprietăți a fost setată la , atunci la sfârșitul programului va deveni egală cu Rulați aplicația și veți vedea că mingea se va mișca de la stânga la dreapta Astfel, metoda aleasă funcționează Luați în considerare din nou construcția unui astfel de ciclu Instrucțiunea For vine întotdeauna pe primul loc, urmată de o variabilă (în cazul nostru, doar i) Următoarele sunt instrucțiuni pentru rularea buclei Expresia Apoi (adică de la la ) înseamnă că variabila i trece prin toate valorile de la la Cu alte cuvinte, bucla este executată de de ori La sfârșitul construcției se află operatorul Next і, ceea ce înseamnă că trebuie să schimbați і (mărește cu unu) și să reveniți la începutul buclei Între aceste instrucțiuni sunt executate în mod repetat comenzi (în cazul nostru, acestea vă permit să creșteți valoarea proprietății Left a mingii) Acest lucru este atât de important încât trebuie să luați în considerare cu atenție această problemă Salvați-vă munca și creați un nou proiect Vom lucra din nou cu fereastra de depanare și comanda Debug Prinţ Faceți dublu clic pe formular pentru a deschide o fereastră de cod cu liniile Private Sub Form Load () și End Sub Introduceți următorul cod de program: Dim X ca întreg Pentru X = Apoi Debug Printa X Debug Printa Următorul Acest text arată astfel în fereastra de cod: im Projectl - Forml (Cod) PNB |Formular |Încărcare d Opțiunea explicită „F” Private Sub Form Load() Dim X ca întreg pentru X = Apoi Depanare Prințul X Debug Printa Next| end sub □În ăT shpBall Top = shpBall Top - buclă end sub Această buclă înseamnă că atâta timp cât valoarea coordonatei superioare a bilei este mai mare decât (adică, bila este sub vârful formei), ea trebuie să scadă cu unu Este clar că pentru ca mingea să se deplaseze în diagonală, în cadrul procedurii timer (Private Sub tmrTimer Timer ()) este necesară modificarea atât a valorii proprietății Top cât și a valorii Left De exemplu, în acest fel: shpBall Left - shpBall Left + shpBall Top = shpBall Top + Ca urmare, la fiecare miime de secundă, valorile ambelor proprietăți vor crește cu valorile corespunzătoare (numerele și sunt date ca exemplu) Cu toate acestea, veți vedea în curând că în programul nostru ar fi mult mai convenabil să folosiți variabile în loc de numere absolute După cum sa discutat la începutul capitolului , variabilele rezervă spațiu în memoria computerului (dacă ați uitat acest lucru, asigurați-vă că recitiți secțiunea relevantă) Ele formează baza programării: dacă valorile lor nu s-ar modifica (adică variabilele nu ar exista), atunci programele în situații diferite ar produce întotdeauna aceleași rezultate Este imposibil de programat fără a înțelege nimic despre variabile Ele trebuie să fie bine studiate Declarați la începutul codului programului imediat sub linia Opțiune explicită două variabile cu nume clare, de exemplu: Dim XValue As Integer Dim YValue ca număr întreg Trebuie să atribuiți valori acestor variabile Cel mai bine este să faceți acest lucru într-o procedură care este executată imediat când programul pornește Aruncă o altă privire la secțiunea din Capitolul , Elementul ScrollBar S-a spus că procedura Private Sub Form Load() este cea mai potrivită pentru astfel de scopuri Pentru a dublu click pentru a ajunge la fragmentul dat de cod de program, forma mouse-ului este liberă de control elemente de localizare În cadrul programului care apare, atribuiți următoarele valori ambelor variabile noi: Private Sub Form Load() XValue - 'Alege in functie de YValue = 'viteza computerului End Sub Ce înseamnă apostrof înainte de text? Acesta este un lucru foarte util: ceea ce urmează după apostrof este un comentariu Acesta servește pentru a face textul programului mai ușor de înțeles pentru programator Acest text este ignorat în timp ce programul rulează și este invizibil pentru utilizator În aplicație, trebuie să faceți cât mai multe comentarii posibil De obicei, după un timp, programatorul nu-și mai amintește de ce a fost scrisă într-un anumit fel această sau acea parte a aplicației și ce ar trebui să facă codul specificat În acest caz, comentariile sunt foarte utile Vă voi arăta importanța unui comentariu folosind codul nostru ca exemplu Sa zicem ca in sase luni te hotarasti sa lucrezi cu programul scris Cu siguranță vă veți întreba: „De ce am lucrat atunci cu numerele și și nu cu alții?” După ce ați citit propriul comentariu, veți înțelege că alegerea numerelor depinde de viteza computerului Cu cât funcționează mai repede computer, cu atât numerele devin mai mici Dar să revenim la program Pentru orice eventualitate, voi da întregul cod al programului în întregime, astfel încât să îl puteți compara cu ceea ce ați scris: În primul rând, observați că acum lucrăm nu cu valori numerice ( și ), ci cu variabile Dacă rulați programul, mingea va începe să se miște în diagonală spre dreapta și în jos, apoi va dispărea dincolo de marginea formei Dar acest comportament al mingii nu ne convine Vom avea nevoie de așa-numitele sondaje de coliziune, fără de care aproape niciun joc pe computer nu poate face Este necesar să se determine când mingea ajunge la marginea formei pentru a pentru a forța programul să reacționeze cumva la el Următorul rând vă spune ceva: „Dacă mingea a ajuns la marginea formei, atunci este necesară o reacție de program”? Așa este, este o declarație condițională if O vom folosi pentru a determina momentul ciocnirii cu fiecare dintre cele patru margini ale formei Cu toate acestea, înainte de asta, să decidem care ar trebui să fie reacția programului dacă una dintre condițiile specificate este îndeplinită (bila ajunge la una dintre marginile formei) Nu uitați că planificarea este extrem de importantă atunci când programați Nu poți începe să creezi un program fără a avea un plan clar în fața ta Deci, vrem să ne asigurăm că mingea sare de pe marginile formei, rămânând în terenul de joc Vrem ca obiectul să se comporte ca niște bile reale Să rulăm programul și să vedem ce se întâmplă cu el Va „zbura” de sus în jos, în timp ce se va deplasa de la stânga la dreapta Mișcându-se în acest fel, va ajunge la marginea de jos a formularului Mingea a ajuns la fundul formei Ce s-ar întâmpla cu mingea dacă ar fi reală? Bineînțeles că ar sări imediat Mingea sare spre dreapta Cu alte cuvinte, conform legii fizicii, mingea sare de pe suprafață în același unghi în care a lovit-o Să ne gândim cum putem simula o astfel de mișcare în programul nostru Nimic nu se schimbă în comportamentul coordonatei X Mingea continuă să se deplaseze spre dreapta Cu toate acestea, metoda de calculare a coordonatei de-a lungul axei Y, adică valoarea proprietății Tor, trebuie corectată: de la un anumit moment, începe să se schimbe în direcția opusă Uită-te la desene Înainte de impact, această valoare a crescut, iar apoi mingea a început să crească, prin urmare, valoarea proprietății Thor ar trebui să scadă Înainte de a scrie programul, formulăm problema pe care trebuie să o rezolvăm Deci, programul ar trebui să înceteze să crească valoarea proprietății Thor și să înceapă să o scadă de îndată ce mingea ajunge la marginea de jos a formei Într-un limbaj de programare, această sarcină arată astfel: Dacă (shpBall Tor + shpBall Height) >= ScaleHeight J Atunci YValue = -YValue (Toate acestea, desigur, trebuie scrise pe un singur rând Acest lucru nu s-a făcut aici din motive tehnice Nu uitați de caracterul (J), care nu trebuie tipărit ) Acum vă voi explica în detaliu semnificația acestei linii și apoi aproape totul se va face: pentru celelalte trei părți ale câmpului de joc (formularul nostru), codul programului este similar Expresia shpBall Tor + shpBall Height definește poziția coordonatei inferioare a mingii (este suma coordonatei superioare a mingii și înălțimea acesteia) Această expresie este similară cu familiarul shpBall Left + shpBall Width, care definește coordonata dreaptă a mingii Este inclus între paranteze doar pentru confortul citirii înregistrării și nu este nevoie să le scrieți În Visual Basic, parantezele sunt folosite în același scop ca și în algebră Dacă, de exemplu, la calcul + * vrei să spui că adăugarea trebuie făcută mai întâi, ar trebui să plasezi parantezele după cum urmează: ( + ) * Apoi, verificăm dacă punctul cel mai de jos al mingii a ajuns la marginea de jos a formei, adică dacă este îndeplinită condiția în care valoarea coordonatei punctului cel mai de jos al mingii este mai mare sau egală cu înălțimea formei Pentru conceptul de „mai mare decât” se folosește simbolul (>) Pentru a scrie „mai mare sau egal cu”, trebuie să introduceți caractere (>=) Înălțimea formularului este obținută folosind proprietatea ScaleHeight în același mod în care am folosit proprietatea ScaleWidth pentru a obține lățimea sa mai devreme În continuare, în textul codului, se efectuează următoarea inversare: YValue - - YValue Aceasta înseamnă că dacă valoarea variabilei YValue a fost egală cu , atunci acum devine egală cu - și invers După „coliziune” cu marginea de jos a formei, mingea ar trebui să sară în sus Prin urmare, valoarea proprietății sale Tor nu va crește, ci va scădea și, prin urmare, am schimbat semnul variabilei YValue Rețineți că în cod nu există o instrucțiune End If Acest lucru se datorează următoarei circumstanțe: în cazul când după cuvântul Apoi, în instrucțiunea if există doar una operator, întreaga expresie poate fi plasată pe o linie fără a utiliza End If Introduceți liniile de cod de mai sus în program Partea din codul programului legată de temporizator ar trebui să arate astfel: Sub privat tmeTimer Timer() shpBall Left = shpBall Left + XValue shpBall Top = shpBall Top + XValue Dacă (shpBall Top + shpBall Height) >= ScaleWidth Then YValue = - YValue „scrie asta într-o singură linie! end sub Rulați programul Veți vedea că funcționează corect Dacă tot nu funcționează? În astfel de cazuri, regula principală este să nu cedezi dificultăților De obicei, este doar o mică greșeală Comparați din nou codul de program cu cel din carte - puteți fi sigur că funcționează corect Uneori, înainte de a începe să cauți erori, trebuie să faci o scurtă pauză Dacă te angajezi în program prea mult timp, atunci nu mai observi greșelile făcute Apropo, dacă sunteți serios interesat să învățați programarea, vă veți familiariza cu metode utile pentru a scăpa de erori Versiunile de Visual Basic disponibile comercial oferă, printre altele, un sistem de ajutor detaliat în care puteți găsi informații despre toate conceptele și operatorii disponibili în această limbă Mingea continuă să sară Deci, cu cele mai dificile întrebări ne-am dat seama Acum să vedem ce mai are de făcut mingea pentru a arăta ca una adevărată Mingea ajunge la marginea dreaptă a matriței și sare în sus la stânga În descrierea ulterioară a mișcării mingii, ar trebui să ne amintim că unghiul de incidență a acesteia este egal cu unghiul de reflexie Codul programului în acest caz este același ca mai sus, dar: • vorbim de dreapta, nu de marginea de jos a formularului; • de-a lungul axei X bila începe să se miște în direcția opusă (de la dreapta la stânga) Încercați să scrieți singur linia corespunzătoare și să o introduceți în codul programului Pentru orice eventualitate, iată soluția mea pentru comparație: Dacă shpBall Left + shpBall Width) >= ScaleWidth J, atunci XValue = - XValue Astfel, comparăm valoarea coordonatei din dreapta a mingii (suma coordonatelor din stânga și lățimea bilei) cu valoarea marginii drepte a formei și schimbăm direcția de mișcare de-a lungul axei X dacă mingea ajunge la marginea dreaptă a formei Mingea noastră ajunge la marginea superioară a formei, sare și își schimbă direcția de-a lungul axei Y, adică începe să se miște în jos Această linie compară valoarea proprietății sale Tor la zero: Dacă shpBall Top = ScaleHeight Apoi J YValue = - YValue 'într-o singură linie unu Dacă (shpBall Left + shpBall Width) >-ScaleWidth Atunci J XValue = - XValue 'într-o linie End Sub Rulați programul și vedeți ce se întâmplă Mingea sare în sus și în jos pe ecran, sare de pe margini și se comportă ca un lucru real Mai multe sarcini mici Îți propun două sarcini pe care ar trebui să încerci să le faci fără ajutorul meu Când pornește aplicația, mingea se mișcă în jos și la dreapta Încercați să o faceți să se miște la stânga și în sus Când rezolvați sarcina, vă sfătuiesc să fiți atenți la valorile inițiale ale variabilelor Mi se pare o decizie oarecum greșită că mingea se mișcă prin butoanele de comandă Pe bara de instrumente veți găsi pictograma Linie (Linie), cu care puteți desena linii drepte Desenați o linie dreaptă în formă (folosind valorile proprietăților X /Y și X /Y ) Ca rezultat, formularul ia următoarea formă: Acum încercați să faceți mingea să sară de pe linia trasă (Line YI) Nu este ușor să faci asta, dar tot încerci Combinarea variabilelor În primul rând, voi explica de ce trebuie să combinați variabile Să presupunem că doriți să scrieți o aplicație care funcționează cu o bază de date care conține numele prietenilor dvs Numele de familie din acesta pot fi aranjate alfabetic sau după ziua de naștere, pentru a nu uita să felicitați prietenii Crearea bazelor de date este una dintre cele mai importante sarcini cu care se confruntă programatorii profesioniști astăzi: nicio întreprindere nu se poate descurca fără un director de clienți și altele asemenea În acest capitol veți învăța: • ce sunt variabilele cu câmpuri sau matrice; • cum să adăugați un al doilea formular la proiect; • care sunt bazele programării bazelor de date; • ce este un operator postfix bun; • altceva despre variabile și domeniul lor; • de ce sunt necesare module; • care este procedura În plus, vă veți familiariza cu elementele de bază ale graficii pe computer Să presupunem că aveți de prieteni ale căror nume doriți să le adăugați la baza de date Acest lucru necesită, după cum știți deja, declararea variabilelor De exemplu, în acest fel: Dim Surnamel As String Dim Nume ca șir Dim Nume Ca șir (Cuvântul nume de familie înseamnă „nume de familie” în engleză ) Introducerea tuturor numelor de familie este o muncă nebună Gândiți-vă la afaceri cu mii de clienți! Pe lângă faptul că rezolvarea acestei probleme va necesita costuri gigantice cu forța de muncă, toate denumirile introduse în acest fel vor fi localizate fără comunicare între ele Dacă trebuie să fie sortate, va fi foarte dificil să faceți acest lucru Ce este o matrice? Pentru a ne atinge scopul, trebuie să existe ceva mai potrivit Trebuie să concatenați variabilele, astfel încât Visual Basic să recunoască relația lor între ele Pentru a face acest lucru, există așa-numitele matrice (matrice) sau variabile cu câmpuri În matrice, mai multe variabile sunt combinate sub un singur nume și este folosit un număr special adăugat pentru a le distinge unele de altele O declarație de matrice arată astfel: Dim Nume( ) Ca șir Diferența față de o declarație de variabilă normală este numărul dintre paranteze din spatele numelui variabilei Specifică faptul că Surname este o matrice și poate conține de elemente String De ce când este între paranteze? Adevărat, dar nu uitați că computerul începe să numere de la zero Primul element al matricei este Nume ( ), al doilea este Nume ( ) și așa mai departe Dacă doriți să începeți să numărați de la unul, declarați o variabilă ca aceasta: Dim Nume (de la la ) ca șir În acest caz, numărul dintre paranteze se va potrivi cu numărul real al variabilei Acordați atenție modului în care ar trebui să vă referiți la un element de matrice individual: mai întâi, numele matricei este scris, urmat de un număr specific (așa-numitul index) al elementului (adică o variabilă separată) între paranteze Vă dau un mic exemplu Să presupunem că ați declarat o variabilă în program pentru a lucra cu o bază de date constând din nume de familie, după cum urmează: Dim Nume (de la la ) ca șir Trebuie să atribuiți o valoare primului element al matricei - numele de familie al prietenului Acest lucru se face astfel: Nume( ) = „Petrov” Pentru al doilea element, șirul ar arăta astfel: Nume( ) = „Petrov” Și tot așa până la ultimul element inclusiv Utilizarea tablourilor facilitează declararea variabilelor Un singur operator Dim înlocuiește mulți astfel de operatori Utilizarea sa are multe alte avantaje Să presupunem că ați introdus de nume de familie și doriți să le afișați pe toate pe ecran folosind comanda Debug Prinț În loc să scrieți Debug Prinț de de ori, scrieți doar o buclă scurtă: Pentru I = Apoi Debug Printa Nume(I) Apoi eu După cum puteți vedea, această abordare simplifică foarte mult viața Să trecem la exemple Creați un nou proiect, denumiți forma frmSurname și veniți cu un titlu potrivit, cum ar fi Nume de familie sau ceva de genul ăsta Întindeți puțin forma în lățime și înălțime Am putea crea un program relativ ușor folosind controlul ComboBox (vezi secțiunea aferentă din Capitolul ) Folosind proprietatea Sorted (Sort), ar fi posibil chiar și aranjarea alfabetică a numelor de familie Dar din moment ce vom extinde programul mai târziu, funcționalitatea acestui element nu va fi suficientă pentru noi Trebuie să vii cu altceva Introduceți următoarele controale în formular: J Nume Caption/Text control f Labei Ibllnput Prenume TextBox txtlnput (gol) CommandButton cmdAppIy &Aplicați CommandButton cmdAnulare &Anulare CommandButton cmdShow Show List CommandButton cmdEnd & Exit Măriți dimensiunea fontului în elementele Labei și TextBox Pentru a face acest lucru, selectați câmpul Proprietăți font și setați dimensiunea fontului la Formularul ar trebui să arate astfel: Formular de cerere „Nume de familie” Acum să ne gândim la codul programului Aș dori ca numele de familie introdus de utilizator să apară în listă după ce am făcut clic pe butonul Aplicați Lista poate fi vizualizată folosind butonul Afișare listă Dacă utilizatorul face clic pe butonul Anulare, câmpul de introducere va deveni gol și numele de familie nu va fi adăugat în listă Apăsarea butonului Ieșire încheie programul A doua formă Mi se pare că, pentru a afișa o listă de nume de familie, ar trebui să deschideți o fereastră separată (cu alte cuvinte, o altă formă), în care, apăsând butoanele corespunzătoare, se poate naviga prin listă În exemplul introductiv din capitolul , am menționat deja că un program poate consta din mai multe forme Pentru a adăuga un al doilea formular la aplicație, selectați comanda Add Form din meniul Proiect din mediul Visual Basic În fila Nou (Creare), trebuie să confirmați valoarea implicită - Formular (Formular) După aceea, formularul va fi adăugat la proiect Iată un alt tabel de mai jos, conform căruia ar trebui să adăugați controale în formular: Ex element Nume Legendă/Text Altul Formular frmChoice Listă de nume de familie Labei IblOutput (Empty) Borderstyle: - Fixed Single CommandButton cmdForward Aplicați CommandButton CommandButton cmdBack cmdTolnput ^Anulează Afișează lista Formă nouă Pentru a plasa săgeți pe butoane, ca în formularul din figură, trebuie să faceți următoarele Faceți clic pe butonul de comandă cmdForward pentru a schimba proprietățile afișate în fereastră cu cele ale controlului respectiv Mai întâi trebuie să modificați valoarea proprietății Style (Tip), setând-o egală cu - Graphical (Graphic) În caz contrar, este imposibil să plasați vreo imagine grafică pe buton Apoi faceți clic în caseta de proprietate Imagine În el va apărea binecunoscutul buton cu puncte de suspensie Faceți clic pe el cu mouse-ul pentru a deschide o fereastră de selecție a fișierelor Accesați folderul GRAPHICS/ICONOS-SAGEȚI pentru a selecta o pictogramă Pentru butonul Forward am specificat o săgeată dintr-un fișier numit ARW RT ICO Desigur, puteți alege orice altă imagine Același lucru ar trebui făcut pentru butonul cmdBack Pentru asta, am ales o săgeată de la ARW LT ISO Dorim ca numele de familie să apară în câmpul elementului Labei atunci când aplicația rulează, iar folosind butoanele Forward/Back ne putem deplasa prin listă Să facem astfel încât, atunci când utilizatorul introduce un nou nume de familie, să poată reveni la formularul principal apăsând butonul de jos Prima întrebare este: cum pot face să apară un formular nou pe ecran când se face clic pe butonul Afișare listă? Pentru astfel de cazuri, Visual Basic are un operator foarte simplu Se numește Show („show”) Faceți dublu clic pe butonul Show List pentru a accesa fereastra de cod După cum era de așteptat, veți vedea pe ecran un cadru de program binecunoscut: Sub privat cmdShow Click() end sub Deoarece dorim să afișăm formularul frmChoice, codul nostru ar trebui să arate astfel: frmChoice Show vbModal Cunoașteți deja bine operatorul postfix Dar ce înseamnă vbModal? Strict vorbind, în acest caz, scrierea acestui cuvânt este opțională Indică faptul că formularul apelat este modal, adică trebuie să îl închideți înainte de a începe să lucrați cu alte formulare (în cazul nostru, formulare de introducere) Vedeți cum va rula aplicația cu și fără acest cuvânt și alegeți opțiunea care vă place Să scriem imediat o altă parte a codului programului: Sub privat cmdEnd Click() Sfârşit end sub Să trecem la miezul programului După cum am menționat deja, trebuie să lucrăm cu matrice Prin urmare, dacă utilizatorul introduce un nume de familie în timp ce aplicația rulează și apasă butonul Apply, atunci acest nume de familie este stocat într-o variabilă, mai precis, într-un element de matrice Dar mai întâi trebuie să declarați această matrice Lasă-l să includă până la de nume de familie Tastați următorul rând imediat după cuvintele Opțiune Explicit: Dim Nume (de la la ) ca șir Mai târziu veți vedea că vom avea probleme cu utilizarea unei astfel de declarații și va trebui schimbată Totuși, momentan ni se potrivește destul de bine Figura arată întregul cod de program în starea sa curentă: Formă nouă Ce e de facut in continuare? Să presupunem că utilizatorul lansează aplicația noastră și introduce numele de familie Dacă apoi face clic pe butonul Aplicare, atunci acest nume de familie ar trebui să fie scris în primul element al matricei: Nume( ) = txtInput Text Tot clar? Câmpul pentru introducerea numelor de familie se numește txt Input, iar textul introdus de utilizator este valoarea proprietății Text și este scris în primul element al matricei Să vedem ce se întâmplă dacă utilizatorul introduce un al doilea nume de familie și dorește să-l salveze Ar trebui să fie stocat în al doilea element Nume ( ) Dar nu vom introduce manual numărul elementului de matrice de fiecare dată, pentru că atunci toate beneficiile utilizării matricei vor dispărea complet Prin urmare, este necesar să se introducă o variabilă contor, care va fi între paranteze și la fiecare apăsarea butonului Aplicare va crește cu unu În acest caz, numărul corect al elementului de matrice va fi întotdeauna indicat între paranteze Deci, în secțiunea declarație a formularului, imediat după declarația matricei, introduceți următoarea linie: Dim Number As Integer Procedura corespunzătoare ar trebui să arate astfel: Sub privat cmdApply Click() Număr = Număr + Nume(Număr) = txtInput Text end sub Atenție la faptul că valoarea variabilei Number trebuie incrementată înainte de a accesa matricea Am început numerotarea elementelor matricei de la (la declarare s-a specificat: Apoi ), iar la pornirea programului, variabilei Number i se atribuie automat valoarea Pentru a intra în gama numerelor elementelor matricei, variabila este deja la începutul procedurii de înregistrare a numelui ori în această procedură) ar trebui mărită Pentru orice eventualitate, repet, deoarece acest lucru este foarte important: atunci când programul pornește, valoarea variabilei Number este egală cu zero - așa ar trebui să fie în limbajul Visual Basic Când utilizatorul introduce un nume de familie și face clic pe butonul Aplicare, este apelată procedura Private Sub cmdApply Click() În ea, creștem valoarea variabilei Number, astfel încât să devină egală cu Într-o linie de cod Nume(Număr) = txtInput Text scriem în primul element al tabloului numele de familie pe care l-a introdus utilizatorul Dacă introduce următorul nume de familie și apasă butonul Aplicare, atunci valoarea variabilei Număr se incrementează automat la Prin urmare, noul nume de familie este scris în al doilea element al matricei și așa mai departe Astfel, umplem treptat întreaga matrice Ne rămâne doar să adăugăm câteva atingeri suplimentare procedurii de înregistrare a numelui de familie În primul rând, numele de familie ar trebui să fie scris în matrice numai dacă utilizatorul a introdus de fapt ceva text înainte de a apăsa butonul corespunzător În caz contrar, matricea poate fi goală Vom verifica faptul introducerii unui nume de familie folosind declarația if: Sub privat cmdApply Click() Dacă txtlnput Text o "" Atunci Număr - Număr + Nume(Număr) - txtInput Text Încheiați dacă end sub Am lucrat deja cu simbolurile ( ) de multe ori Combinația (<>) înseamnă „mai mare decât sau mai mică decât” - cu alte cuvinte, „nu este egală cu” Această comparație este folosită în principal în declarațiile condiționate, ca în cazul nostru Vă voi arăta toate opțiunile de comparare și semnificația lor în următorul tabel: Simbol Sens Mai puțin mai mic sau egal cu mai mult mai mare sau egal cu mai mult sau mai putin Aceste simboluri sunt numite și operatori Să presupunem că programul trebuie să verifice dacă variabila X are o valoare mai mare decât Y Apoi scriu astfel: Dacă X > Y atunci Astfel, în linia de cod Dacă txtInput Text despre „” Atunci află dacă condiția „nu este egală” este îndeplinită pentru șirul „ ” atunci când utilizatorul introduce o valoare în txtInput Caracterele ("") înseamnă că șirul pe care îl termină este gol Iar condiția „nu este egală cu un șir gol” înseamnă că utilizatorul a introdus un nume de familie (sau alt text) în rândul corespunzător Sunt gata să recunosc că cele de mai sus sunt destul de complicate, dar acestea sunt regulile limbajului de programare Visual Basic și trebuie respectate Mai este o mică împrejurare care nu-mi place Când porniți aplicația, cursorul se află în câmpul de introducere, astfel încât să puteți introduce imediat numele de familie Cu toate acestea, după apăsarea butonului Aplicare, cursorul nu se mai află în acest câmp De asemenea, ar fi mai bine dacă câmpul de introducere devine gol după apăsarea acestui buton Momentan rămâne numele de familie introdus Iată cum arată fereastra aplicației noastre după ce faceți clic pe butonul Aplicați: Se lansează aplicația Se vede că numele de familie rămâne, dar cursorul a dispărut Ambele trebuie schimbate Pentru a elimina numele de familie, la sfârșitul instrucțiunii if, introduceți următorul rând: txtlnput Text = "" Cu această linie, setăm proprietatea Text a câmpului nostru de intrare la o valoare „vide” Acum să încercăm să întoarcem cursorul în câmpul de introducere Dacă cursorul este într-un câmp, atunci ei spun că are focus (în engleză focus) Pentru a seta (în engleză pentru a seta) prin intermediul limbajului Visual Basic focalizarea pe un anumit loc, trebuie să utilizați următoarea comandă cu un nume foarte logic: Seteaza focusul Această comandă este conectată la numele elementului căruia i se atribuie focusul, folosind operatorul postfix cu care sunteți familiarizat In acest caz arata asa: txtlnput SetFocus - Pentru comparație, iată textul complet al codului programului: Și al tău arată așa? Rulați programul și introduceți câteva nume de familie Nu uitați să faceți clic pe butonul Aplicați de fiecare dată Butonul Ieșire funcționează și el corect, iar când dați clic pe butonul Afișare listă, ajungeți la al doilea formular Dacă utilizați butonul Anulare, nu se va întâmpla nimic Acest lucru este firesc, deoarece încă nu am scris codul pentru el Să avem grijă de asta Goliți câmpul de introducere și readuceți focalizarea asupra acestuia Acest lucru se face în același mod ca și pentru butonul Aplicare, doar în acest caz numele de familie nu este scris în elementul de matrice, iar valoarea variabilei Number nu este incrementată Această abordare este destul de logică, deoarece prin apăsarea butonului Anulare, utilizatorul arată clar că nu dorește să accepte numele de familie introdus Asa de: Sub privat cmdCancel Click() txtlnput Text = "" txtlnput SetFocus end sub Astfel, programarea acestui formular este finalizată Dar nu uitați ce v-am spus mai devreme: vom avea în continuare probleme la declararea unei matrice Când faceți clic pe butonul Afișare listă, pe ecran va apărea o fereastră de ieșire, dar nu veți vedea niciun nume de familie în ea Să reparăm această situație Când deschideți această fereastră, ar trebui să apară primul nume al listei Deoarece linia de ieșire a celei de-a doua forme (frmChoice) se numește IblOutput, iar textul pentru această linie este specificat în proprietatea Caption a elementului Labei, ar fi firesc să setați această proprietate la valoarea primului element al matricei : IblOutput Caption = Nume (l) Sau nu este? Introduceți această linie în procedură Sub privat cmdShow Click() Apoi, această procedură va lua următoarea formă: Sub privat cmdShow Click() IblOutput Caption = Surname(l) frmChoice Show vbModal end sub Rulați programul și faceți clic pe butonul Afișare listă Sistemul Visual Basic nu este de acord cu noi Veți vedea următorul mesaj: cinci* Visual Basic are de ce să se plângă Ce înseamnă? La urma urmei, am definit toate variabilele! Am ajuns la un punct foarte important Eroarea este că Visual Basic nu poate face nimic cu IblOutput Legendă, - elementul IblOutput este în a doua formă (f rmChoice), iar textul codului tocmai introdus aparține primei forme (f rmSurname) Din aceasta aflăm că formele individuale în limbajul Visual Basic nu sunt legate între ele Ei, ca să spunem așa, nu știu unul despre celălalt Pentru a face referire la controale și proprietățile acestora care aparțin unei alte forme, utilizați operatorul postfix Înainte de numele controlului, trebuie să puneți numele formei în care se află Arată astfel: frmChoice IblOutput Caption În această expresie, operatorul postfix apare de două ori! Textul care trebuie afișat trebuie să fie în proprietatea Caption a elementului IblOutput Aici este utilizat operatorul postfix pentru prima dată Acum trebuie să legăm expresia • ? IblOutput Caption cu forma căreia îi aparține, adică frmChoice Acest lucru se face și folosind operatorul postfix Rezultatul este un operator postfix dublu Simplificând puțin, am putea spune acest lucru: Caption este o parte integrantă a IblOutput, iar IblOutput este o parte integrantă a formularului frmChoice Această apartenență este specificată folosind operatorul postfix Întreaga procedură arată astfel: Sub privat cmdShow Click() frmChoice IblOutput Caption = Nume( ) frmChoice Show vbModal end sub Rulați aplicația, introduceți un nume de familie, faceți clic pe butonul Aplicați și apoi pe butonul Afișați lista Functioneaza! Deoarece ne aflăm în formularul de ieșire, modificați proprietatea Font a elementului IblOutput Vă sugerez să setați dimensiunea fontului la , astfel încât numele de familie să aibă aceeași dimensiune la ieșire ca și la intrare Veți reveni la fereastra de intrare dacă apăsați butonul cu imaginea unei cruci în colțul din dreapta sus al ferestrei de ieșire Introduceți al doilea nume de familie, faceți clic pe butonul Aplicați, apoi faceți clic pe butonul Afișare listă Veți vedea că primul nume de familie este încă afișat Acest lucru este firesc, din moment ce nu am programat nimic altceva A doua formă are două butoane - Înainte și Înapoi Pentru ei, vom scrie cod de program suplimentar Reveniți la formularul frmChoice Care este cel mai simplu mod de a trece de la fereastra unei forme a proiectului la fereastra unei alte forme? În capitolul , ați văzut deja fereastra proiectului, situată în partea dreaptă sus a shell-ului utilizatorului Visual Basic Cu acesta, puteți trece de la fereastra obiect la fereastra de cod de program și invers Vedeți cum arată această fereastră acum: Dacă al tău arată diferit, dă clic pe semnul plus din fața Formularelor Se va deschide o listă de formulare individuale Acum, în fereastra proiectului vedeți ambele formulare create în aplicația noastră Făcând dublu clic pe numele formularului, veți ajunge la fereastra acestuia Acum, în fereastra proiectului vedeți ambele formulare create în aplicația noastră Făcând dublu clic pe numele formularului, veți ajunge la fereastra acestuia Dar să revenim la aplicație Trebuie să scriem codul pentru butoanele Înainte și Înapoi Faceți dublu clic pe butonul Înainte L-am numit cmdForward Cadrul rezultat al programului arată astfel: Sub privat cmdForward Click() end sub Când ați rulat programul, ați introdus primul nume de familie și acesta a fost stocat în primul element al matricei Nume de familie ( ) Să presupunem că am introdus nume de familie în prima formă și de fiecare dată am apăsat butonul Aplicați Apoi, toate cele nume de familie sunt în elementele matricei Nume ( ) Prenume ( ) Avem nevoie de o metodă care să permită de fiecare dată când butonul Forward este apăsat să prezinte aceste elemente în fereastra de ieșire unul după altul Dacă, de exemplu, „Larin” este scris în primul element al matricei, atunci acest nume de familie va apărea în formularul de ieșire din fereastra IblOutput Acest lucru a fost realizat anterior cu linia frmChoice IblOutput Caption = Nume( ) Dacă utilizatorul face clic acum pe butonul Forward, atunci proprietatea IblOutput Caption ar trebui să fie setată la valoarea elementului matrice Surname ( ) Acest lucru se poate face astfel: IblOutput Caption = Prenume( ) Desigur, ați observat că acum nu scriem frmChoice IblOutput Caption = Nume( ) Acest lucru se datorează faptului că introducem codul programului deja în formularul fdmChoice În el, elementul IblOutput, desigur, este cunoscut (este în el) Dar această abordare nu este potrivită, deoarece va trebui să scriem Nume ( ) data viitoare când apăsăm butonul Înainte și așa mai departe O astfel de operațiune este aproape imposibil de implementat Prin urmare, este necesar să introduceți o variabilă care, la apăsarea butonului Forward, să crească cu unu, iar la apăsarea butonului Back să scadă cu unu Atunci valoarea variabilei va fi întotdeauna corectă Să declarăm această variabilă, ca întotdeauna, la începutul codului sub linia Option Explicit Să-i spunem doar X și să atribuim o valoare inițială de - numerotarea elementelor matricei Nume începe de la și continuă până la Valorile care ar trebui să fie atribuite la pornirea programului sau la formularul este deschisă sunt setate în procedura Form Load O nouă variabilă trebuie declarată în ea Lasă-mă să-ți explic din nou Faceți dublu clic pe formularul frmChoice într-o zonă fără controale În cadrul programului care apare, introduceți următoarea linie: X= Să comparăm acum codul formularului de ieșire Pentru mine arata asa: Acesta este doar începutul Să scriem codul pentru procedura cmdForward Click De fiecare dată când utilizatorul apasă acest buton, programul ar trebui să mărească valoarea variabilei X cu și să prezinte numele de familie din elementul de matrice corespunzător în câmpul de ieșire Introduceți următoarele rânduri în textul acestei proceduri: X = X + IblOutput Caption - Nume (X) Rulați programul, introduceți două nume de familie (apăsând de fiecare dată butonul Aplicare), accesați formularul de ieșire și vizualizați numele folosind butonul Go Mesajul de eroare va apărea din nou pe ecran, de data aceasta unul foarte ciudat: Începe să mă pună pe nervi Nu vă gândiți la formularea ciudată folosită de sistemul Visual Basic Principalul lucru este că programul dorește să spună următoarele: „Visual Basic nu recunoaște matricea Nume de familie” Dar v-am prezis că vom avea probleme la declararea acestei matrice Variabilele și domeniul lor De ce a apărut acest mesaj și ce se poate face pentru a depăși obstacolul? Pentru a înțelege această problemă, trebuie să știți că există variabile cu domenii diferite Dacă declarați o variabilă așa cum am făcut până acum (folosind instrucțiunea Dim), atunci domeniul de aplicare a acesteia este limitat O astfel de variabilă se numește variabilă privată Regula este: dacă instrucțiunea Dim pentru o variabilă individuală se află în partea declarativă a formularului (practic adică se află în spatele expresiei cunoscute Option Explicit), atunci această variabilă este definită în tot codul de program legat de această formă Dacă instrucțiunea Dim este în interiorul unei proceduri (începând cu cuvintele Private Sub), atunci este definită numai în cadrul procedurii specificate Pentru a înțelege cu adevărat sistemul de domenii, luați în considerare un exemplu După cum probabil puteți ghici, vom lucra din nou cu declarația Debug Prinţ Este indispensabil pentru testarea programului Salvați aplicația Nume și creați un nou proiect Plasați un buton de comandă pe formular Introdu următorul cod: Opțiunea explicită Dim X As Integer parte declarativă — Operatorul lui Dim Private Sub Form Load() Dim Y As Integer 'Instrucțiunea Dim în cadrul procedurii end sub Private Sub Commandl Click() X= Debug Prinț X 'Running end sub Este clar? Pentru orice eventualitate, o să explic Accesați procedura Private Sub Form Load făcând dublu clic pe formular Procedura Private Sub Commandl Click poate fi accesată făcând dublu clic pe butonul de comandă Sper să vă amintiți că apostroful din fața textului înseamnă că acest text este un comentariu pentru o mai bună înțelegere a programului Îl poți lăsa afară sau îl poți înlocui cu al tău După rularea aplicației, veți vedea în fereastra de depanare numărul Astfel, programul funcționează deoarece variabila X a fost introdusă în partea declarativă Adăugați următoarea expresie la procedura Commandl Click: Y= Rulați programul și apăsați butonul Va apărea un mesaj de eroare care indică faptul că variabila nu este definită Sper că acum înțelegeți de ce s-a întâmplat asta Variabila Y a fost introdusă într-o procedură și, prin urmare, nu este definită într-o altă procedură Poate că nu înțelegeți de ce este imposibil să declarați toate variabilele în partea declarativă a formularului și, prin urmare, să rezolvați problemele apărute? În micul exemplu pe care l-am analizat, chiar nu contează unde introduceți variabilele - în interiorul procedurii sau în partea declarativă a formularului Dar imaginați-vă un program cu un număr mare de controale și proceduri Veți avea nevoie de o mulțime de variabile În plus, există un mare pericol ca vizibilitatea să se piardă și veți uita scopul unei variabile din partea declarativă și unde este folosită Prin urmare, regula generală este de a declara variabilele local, adică în cadrul unei proceduri, dacă este posibil Și numai dacă variabila este folosită în diferite părți ale programului, aceasta ar trebui declarată în afara procedurilor, chiar la începutul programului Cu toate acestea, veți vedea că și în astfel de cazuri există soluții mai elegante Cu toate acestea, problema cu domeniile nu a fost rezolvată încă Ce se întâmplă dacă o variabilă trebuie definită și utilizată în mai multe forme simultan, ca în aplicația noastră Nume? Strict vorbind, acesta a fost punctul de plecare al reflecțiilor noastre Faptul că tabloul Surname nu a fost acceptat de Visual Basic în a doua formă (frmChoice) pare să se datoreze faptului că am declarat-o în prima formă (frmSurname) Să verificăm acest lucru cu un exemplu de program Adăugați o a doua formă la proiect Îți amintești cum se face? Așa este, trebuie să selectați comanda Adăugare formular din meniul Proiect și apoi, în caseta de dialog care apare, confirmați valoarea implicită a Formular apăsând tasta Enter Apelați al doilea formular folosind butonul de comandă al primului formular și vedeți dacă variabila X este definită în el Vă sugerez să utilizați următorul cod pentru prima formă: Puteți vedea că i s-au făcut doar două modificări În primul rând, am comentat linia Y - Un astfel de comentariu este foarte important atunci când se dezvoltă programe Sunteți deja familiarizat cu simbolul de comentariu (') Cu toate acestea, poate fi folosit nu numai pentru a scrie explicații pentru program, ci și pentru a exclude linii individuale din acesta fără a le elimina complet din textul codului programului Când există îndoieli că o parte a aplicației funcționează corect, această metodă este foarte utilă De asemenea, folosesc comanda Formular Show numită a doua formă: Am atribuit o singură valoare variabilei X Trebuie remarcat faptul că acest program servește doar pentru verificare Putem aplica cu succes rezultatele obtinute in aplicatia Nume de familie Deci, rulați programul Apăsați butonul de comandă Va apărea al doilea formular și va fi afișat din nou mesajul de eroare familiar A doua formă nu recunoaște variabila X deoarece a fost declarată în prima formă Am întâlnit această problemă în aplicația Nume, dar acum știm exact ce este Necesitatea unui modul Deci, trebuie să găsim o metodă care să ne permită să declarăm o variabilă astfel încât aceasta să fie definită sub mai multe forme, adică în întregul proiect Ceea ce se va discuta acum va fi, deși nou pentru tine, dar nu prea complicat Urmează următoarele instrucțiuni: În prima formă, comentați linia declarației Dim X ca întreg Vă amintiți că pentru aceasta trebuie doar să puneți un simbol de comentariu în fața lui - rezultatul va fi același ca și cum această linie nu ar exista deloc Selectați comanda Add Module din meniul Proiect și acceptați valoarea implicită a Module Următorul cod va apărea pe ecran: Așa arată modulul Dar ce este un modul? Aceasta este partea din program care conține doar cod Este complet invizibil pentru utilizator în timp ce aplicația rulează Acest cod poate consta din variabile sau alte părți ale programului - veți vedea un exemplu în acest sens în programul Nume Modulul este locul în care ar trebui să fie declarată variabila X Rețineți că nu folosește instrucțiunea normală Dim, ci scrie: Public X ca întreg Cuvântul Public (tradus din engleză înseamnă „public”) înseamnă că variabila specificată trebuie definită pe tot parcursul programului Introduceți această linie în modul Porniți programul Veți vedea că atunci când butonul de comandă este apăsat, se apelează al doilea formular și nu apare niciun mesaj de eroare A mers! Să revenim la cele spuse, pentru că este foarte important atunci când scrii aplicații mari Variabilele folosite în program trebuie să fie declarate într-un modul special și nu folosind instrucțiunea Dim, ci Public Mi se pare că este inutil să mă gândesc mult timp de ce este așa, și nu altfel Trebuie să acceptați această regulă ca o caracteristică a limbajului Visual Basic și să o respectați Am făcut o lungă excursie în lumea domeniilor definiției Am învățat multe și acum putem remedia eroarea în aplicația Nume Înțelegi ce este? Și cum să scapi de el? Pentru a corecta eroarea, eliminați declarația din primul formular (f rmSurname) Dim Nume (de la la ) ca șir Această linie poate fi fie eliminată, fie pur și simplu comentată În schimb, avem nevoie de un modul Selectați comanda Add Module din meniul Project și confirmați valoarea implicită (Module) apăsând tasta Enter Specificați un nume în fereastra de proprietăți a modulului Am ales SurnameModule Uită-te la fereastra proiectului Veți vedea următoarele: Proiect - Proiect! □ „tj si al? Proiectl (Nume vbp) Formulare j tl(rmChoice(Choice frm) Q, frmSurname (Surname frm) Ё Module SurnameModule (SurnameModule) , Pe lângă ambele formulare disponibile în program, acum are un modul Declarați o matrice într-un modul Nu uitați să folosiți cuvântul Public atunci când faceți acest lucru Asa de: Nume public (de la la ) ca șir După cum veți vedea în scurt timp, variabilele X și Number vor fi, de asemenea, utilizate în toate părțile proiectului Deci, eliminați declarația corespunzătoare din frmSurname și declarați-le ca Publice în modul: Număr public ca întreg Public X ca întreg Modulul ar trebui să arate astfel: Lansați aplicația Nume și introduceți câteva nume de familie (nu uitați să faceți clic pe butonul Aplicați) și apoi accesați fereastra de ieșire Puteți vedea că folosind butonul Forward puteți vizualiza toate numele de familie introduse unul câte unul Programul funcționează! Deoarece un program de calculator nu este niciodată terminat (de aceea producătorii de jocuri lansează în mod constant versiuni corectate și „patch-uri”), următoarea problemă este la orizont Utilizatorul poate apăsa butonul Redirecționare cât dorește și chiar și după ce au fost vizualizate toate numele de familie disponibile Ca urmare, programul se poate bloca Prin urmare, trebuie să încercăm să ne dăm seama cum să facem >«, astfel încât să fie posibilă vizualizarea ulterioară a listei de nume de familie numai dacă există încă nume de familie nevăzute în ea Numărul elementului matricei care este afișat în prezent este stocat în variabila X (vă amintiți: Nume (X)), care este actualizată constant atunci când este apăsat butonul Forward Numărul total de nume de familie introduse este stocat în variabila Număr și actualizat când se face clic pe butonul Aplicare Dacă mai aveți întrebări, priviți din nou textul ambelor proceduri De fiecare dată când faceți clic pe butonul Aplicați, numărul de nume introduse crește cu și este stocat în variabila Număr În schimb, variabila X își amintește ce nume de familie este afișat în prezent în formularul de ieșire Deci, valorile variabilelor X și Număr trebuie comparate între ele, iar navigarea ulterioară folosind butonul Redirecționare este permisă doar atâta timp cât X este mai mic decât Număr Când valoarea X se potrivește cu valoarea Number, va fi atins ultimul element al matricei, iar apăsarea în continuare a butonului Forward va deveni inutilă Prin urmare, trebuie să utilizați declarația condițională if cu care sunteți familiarizat După efectuarea modificărilor, procedura este următoarea: Sub privat cmdForward Click() Dacă X Atunci X = X - IblOutput Caption - Nume (X) Încheiați dacă end sub Mi se pare că nu este nevoie să explic acest cod în detaliu Folosim variabila X pentru a desemna elementul afișat curent al matricei Atâta timp cât această valoare este mai mare decât , mai există cel puțin un element în listă înaintea elementului curent Prin urmare, este posibilă răsfoirea listei înapoi Dar, la atingerea valorii , ajungem la primul element al matricei și nu mai este nimic de văzut Rămâne să scrieți codul programului pentru butonul În fereastra de introducere Când este apăsat, formularul de ieșire ar trebui să dispară, iar focalizarea ar trebui să se îndrepte către câmpul de intrare al primului formular Codul terminat arată astfel: Sub privat cmdToInput Click() frmChoice Hide frmSurname txtlnput SetFocus end sub tua Scopul operatorului Ascundere (acest cuvânt în engleză înseamnă „a ascunde”) este de a face forma să dispară de pe ecran În același timp, numele său și operatorul Ascundere sunt conectate între ele printr-un operator postfix Operatorul SetFocus vă este deja cunoscut Mi se pare că utilizarea unui operator dublu postfix nu ar trebui să vă provoace întrebări: avem un formular pentru selecție, în timp ce trebuie să ne referim la un alt formular (frmSurname) Prin urmare, îi punem numele în fața operatorului postfix Și în sfârșit, un mic plus Este opțional pentru aplicația noastră, dar odată cu el va deveni mult mai frumos și mai profesionist Și în plus, învățăm altceva foarte important Lucrul cu proceduri În primul rând, aș dori să vă explic ceea ce, după părerea mea, lipsește din aplicația noastră La urma urmei, așa cum am menționat deja, nu există niciodată un program de calculator complet dezvoltat Întotdeauna există ceva ce ar putea fi îmbunătățit Să presupunem că utilizatorul, apăsând butonul Înapoi, a ajuns la primul element al matricei Am configurat aplicația astfel încât progresul ulterioare să fie imposibil (rețineți că acum valoarea variabilei X este ) Și dacă utilizatorul încă apasă din nou butonul Înapoi, atunci nu va avea loc nicio acțiune Cu toate acestea, nimeni nu îl va informa despre motivul pentru care programul nu mai răspunde la apăsarea butonului Același lucru se va întâmpla dacă se ajunge la ultima intrare din matrice și utilizatorul continuă să apese butonul Înapoi Programul ar trebui să-i transmită un mesaj despre ceea ce se întâmplă Pentru a face acest lucru, puteți folosi fereastra mesaje Dar aplicația va arăta mai bine dacă butonul Înainte sau Înapoi nu mai este activ Atunci un utilizator experimentat va înțelege că apăsarea în continuare nu va duce la nimic Pentru a vă face o idee despre cum arată un formular selectat cu un buton înapoi dezactivat, aruncați o privire la următoarea figură: Butonul Înapoi nu mai funcționează Faceți clic în fereastra obiect (aceasta este fereastra în care noi, spre deosebire de fereastra de cod de program, vedem formularul cu toate controalele sale) butonul Forward sau Back și privim fereastra de proprietăți Veți găsi proprietatea Enabled, a cărei valoare este True În funcție de dacă această proprietate este setată la True sau False, controlul corespunzător este activat sau dezactivat Dar vom gestiona această proprietate nu folosind fereastra de proprietăți, ci folosind codul, deoarece ambele butoane (în funcție de situație) pot fi active sau inactive Cum se lucrează cu proprietățile elementului de control în codul programului? Repet iar și iar: folosind operatorul postfix Deci, pentru a face inactiv controlul cmdBack sub forma frmChoi ce, trebuie să scriem următoarele: frmChoice cmdBack Enabled = Fals JI ? Și când în programul nostru acest buton ar trebui să devină inactiv? În momentul în care utilizatorul ajunge la primul element al matricei, pentru că atunci mișcarea se oprește Iar primul element al tabloului este atins atunci când variabila X din procedura cmdBack devine egală cu Pentru orice eventualitate, vom presupune că X poate avea valoarea zero, adică mai mică decât Deci, Dacă X = Număr Atunci frmChoice cmdForward Enabled - False Altfel frmChoice cmdForward Enabled - Adevărat Încheiați dacă Pentru comparație, vă voi oferi încă o dată întregul text al modulului în întregime: Rulați programul și veți vedea că nimic nu s-a schimbat Acest lucru se datorează faptului că procedurile normale sunt executate atunci când utilizatorul face clic pe controlul corespunzător În acest caz, nu există un astfel de element Chestia este (atenție: un punct foarte important!) că procedura trebuie apelată direct din codul programului, pentru care numele acesteia să fie scris la locul potrivit în ea (fără paranteze) Prin urmare, apelul de procedură se efectuează în felul următor: Buton activ Amintiți-vă că urma să apelăm această procedură de fiecare dată când era apelat formularul de selectare și de fiecare dată când se făcea clic pe butoanele Înainte și Înapoi Se obișnuiește să se spună că de fiecare dată când o formă este apelată, aceasta devine activă Aceasta declanșează evenimentul Activare Într-o procedură numită Form Activate, puteți scrie comenzi care vor fi întotdeauna executate atunci când acest formular este apelat: o astfel de variabilă trebuie să ia o astfel de valoare, o astfel de procedură trebuie executată și așa mai departe Pentru a accesa această procedură, introduceți fereastra de cod asociată formularului frmChoice În linia de sub titlu, faceți clic pe butonul săgeată situat în stânga și selectați Formular din lista care se deschide Faceți clic pe butonul săgeată din dreapta și selectați Activare Bara de titlu ar trebui să arate astfel: Selectați Titlul formularului Wireframe-ul procedurii corespunzătoare apare în fereastra de cod De acolo, vom apela procedura ButtonActive De asemenea, să setăm variabila X la , astfel încât prenumele să fie întotdeauna afișat la începutul vizualizării, astfel încât Visual Basic să nu piardă socoteala Codul pentru această procedură arată astfel: Private Sub Form Activate() X= Buton activ end sub Apoi, organizăm un apel către procedura ButtonActive din procedurile Forward și Back Arata asa: Sub privat cmdForward Click() Dacă X Atunci X = X - IblOutput Caption = Nume (X) End If ButtonActive ' Linie nouă end sub Acum programul pare să nu aibă nimic de îmbunătățit Adesea, un programator începător este copleșit de multitudinea de posibilități oferite de un sistem de programare precum Visual Basic Nu se simte încrezător în abilitățile sale și nu îndrăznește să își asume crearea propriilor proiecte Există o metodă foarte eficientă de a depăși această barieră: trebuie să scrii, să scrii, să scrii programe La început, nu este necesar să se creeze proiecte atât de larg concepute precum aplicația noastră pentru lucrul cu nume de familie - vor fi suficiente programe de formare mici Treptat, vei avea îndemânarea și vei îndrăzni să asumi lucruri mai dificile Chiar dacă ceva nu merge, nu dispera și amintește-ți de vechiul proverb „Nu zeii ard oalele” Mai multe sarcini mici Schimbați aplicația noastră astfel încât să nu funcționeze cu nume de familie (variabile de tip String), ci cu numere Următoarea sarcină este mai dificilă Scrieți un program care determină dacă cele cinci numere introduse de utilizator sunt divizibile cu și apoi imprimă rezultatele în câmpurile celor cinci elemente Labei în a doua formă Un sfat: veți avea nevoie de o serie de cinci elemente Pentru a determina dacă un număr este divizibil cu , puteți folosi comanda mod: Pentru X - Apoi Dacă Number(X) mod = , atunci Următorul X Creați propriile tipuri de date Știți deja ce este un tip de date De la capitolul , am folosit de multe ori tipuri precum Integer, String Printre altele, acestea sunt necesare la declararea variabilelor, de exemplu: Dim X ca întreg Vă întrebați: de ce să revenim din nou la același subiect? Tipurile de date furnizate de Visual Basic nu sunt suficiente? Acum veți vedea că programele mari nu se pot descurca fără tipuri de variabile create de sine În acest capitol veți învăța: • de ce tipurile obișnuite de date nu sunt întotdeauna suficiente; • ce este un tip de date definit de utilizator și cum este util în muncă; • Încă ceva despre programarea bazelor de date Baza de date este în creștere Gândiți-vă la aplicația Nume de familie Cred că ați înțeles utilitatea utilizării matricelor din exemplul său Fără ele, practic nu am putea scrie un astfel de program, deoarece ar necesita costuri exorbitante cu forța de muncă Și totuși, sunt încă nemulțumit de această aplicație Ce este acest program care funcționează numai cu nume de familie? Datele personale despre o persoană includ și alte informații: nume, data nașterii, adresa etc Să scriem o aplicație care să funcționeze atât cu nume de familie, cât și cu prenume Dacă doriți să adăugați mai multe informații, vă rugăm să le adăugați După ce ați citit capitolul, nu vă va fi greu Adăugarea prenumelor la nume este ușor Să declarăm o altă matrice în modulul nostru, de exemplu, în acest fel: Prenume public (l apoi ) ca șir (Prenumele în engleză înseamnă „nume”) Dar făcând acest lucru, ne confruntăm cu dificultăți Dacă introduceți un prenume și un prenume, acestea nu se vor lega între ele, iar după ce programul sortează numele de familie, numele vor rămâne intacte Drept urmare, persoanele de pe listă vor avea alte nume Combinarea variabilelor Să combinăm numele și prenumele într-un singur întreg Pentru a face acest lucru, va trebui să vă creați propriul tip de date În limbajul de programare, este numit un tip de date definit de utilizator deoarece nu există ca atare în limbaj și este construit în jurul nevoilor specifice ale utilizatorului Cum să vă creați propriul tip de date? Vă voi da un exemplu potrivit pentru cazul nostru: Numele turului Prenume As String Nume As String Încheierea turului Folosind cuvântul cheie Type, creăm propriul tip de date, echivalent cu tipurile de date disponibile în limbajul Visual Basic (întreger, String etc ) În cazul nostru, acest tip este format din două părți (Prenumele - prenume și Prenume - prenume) Ambele sunt de tip String Nu sunt impuse restricții: în el sunt introduse orice număr de componente și pot avea diferite tipuri În acest sens, trebuie să vă amintiți două lucruri În primul rând, operatorul Type trebuie să fie într-un modul Dacă extindem aplicația de nume de familie, putem folosi modulul creat anterior În al doilea rând (și acest lucru este mult mai important), Nume este un tip de date (cum ar fi Integer sau String) Nu este o variabilă Mai trebuie anunțat De exemplu, așa: Dim MyName ca nume Este declarată în același mod ca o variabilă de tip Integer: Dim MyValue ca număr întreg Dar cum să ne referim la părțile componente ale acestui tip de date (în cazul nostru, la Prenume și Prenume)? Cred că ai ghicit deja Așa este, folosind operatorul postfix De exemplu, în acest fel: MyName Firstname = „Serghey” Permiteți-mi să vă explic din nou: folosind operatorul Type, este creat un nou tip de date Apoi declarați o variabilă de acel tip și utilizați constructul „Nume variabilă - operator postfix - element tip de date” pentru a vă referi la partea componentă a acelei variabile Creați un nou proiect și plasați un buton de comandă pe formular Direct sub linia Opțiune explicită, introduceți un operator de tip cu Prenume și Prenume drept constituenți, așa cum tocmai v-am arătat Într-un program atât de mic, ca o excepție, acest lucru se poate face nu într-un modul separat Declarați o variabilă MyName de tip Name: În cadrul procedurii: Private Sub Commandl Click() end sub introduceți următoarele rânduri: MyName Firstname = „Serghey” MsgBox „Nume:” + MyName FirstName Codul introdus ar trebui să arate astfel: Rulați programul apăsând F Veți vedea că se împlinește: Extensie de program Acum că am acoperit elementele de bază, putem trece la extinderea bazei noastre mici Desigur, vă amintiți din capitolul anterior că am folosit o matrice Era format din elemente de tip String, în care erau scrise numele de familie Acum avem nevoie de o serie de variabile de tip definit de utilizator Și anume: Public MyName (de la la ) ca nume Nume este un tip definit de utilizator și declarăm o matrice de variabile de acest tip Acest lucru se face exact în același mod ca în capitolul anterior - într-un modul folosind cuvântul cheie Public Apropo, nu trebuie să începi de la început Este suficient dacă faceți modificările corespunzătoare în aplicația Nume de familie Pentru orice eventualitate, salvați noul program sub un alt nume (de preferință într-un subdosar separat de pe hard disk) Vă amintiți cum este salvat programul? Dacă nu, recitiți secțiunea „Primul program” din capitolul - În primul rând, vom schimba ambele forme Ar trebui să arate astfel: Am numit primul formular frmlnput și am setat Legenda la Nume de familie Acum aveți nevoie nu de una, ci de două controale TextBox, una pentru nume de familie (txtSurname) și una pentru prenume (txtFirstname) În plus, avem nevoie de un element Labei cu titlul Nume Restul rămâne ca înainte Nici formularul de selectare nu se schimbă prea mult Este necesar să plasați două elemente Labei în el - IblFirstname și IB Nume Vă rugăm să rețineți că numele unor controale s-au schimbat în comparație cu versiunea anterioară a programului Și dvs ar fi mai bine să utilizați nume noi - acest lucru ar ajuta la evitarea confuziei Schimbări de cod Să trecem la noul cod de program În primul rând, să aruncăm o privire asupra modulului Singura, dar foarte semnificativă schimbare a acesteia este că acum vom lucra cu un tip de date definit de utilizator și, prin urmare, vom introduce matricea adecvată Faceți modificările necesare în modul Va arăta astfel (diferențele față de versiunea veche sunt marcate în text pentru a evita erorile): Opțiunea explicită ' Public Nume (de la la ) Ca șir - comentat! Tastați Nume ' Aceasta este o linie nouă Prenume As String Nume As String Încheierea turului Numele meu public (de la la ) Număr public ca întreg As Name ' Aceasta este o nouă linie ' Next all 'ramane neschimbat Public X ca întreg SubButton publicActiv() Dacă X = Număr Atunci frmChoice cmdForward Enabled = Fals Altfel frmChoice cmdForward Enabled = Adevărat Încheiați dacă end sub Cum vor afecta modificările făcute restul programului? În loc de un singur element txtlnput, forma de introducere a numelui ar trebui să facă distincția între două elemente txtFirstname și txt Surname Voi explica acest punct folosind butonul Anulare ca exemplu Faceți dublu clic pe acest buton pentru a introduce textul codului și modificați-l după cum urmează: Sub privat cmdCancel Click() txtFirstname Text - "" txtSurname Text - "" txtFirstname SetFocus End Sub Lasă-mă să explic această bucată de cod Când utilizatorul întrerupe tastarea unui nume, câmpurile corespunzătoare ambelor elemente TextBox ar trebui să fie șterse, astfel încât li se scrie un șir gol Accentul este pus pe elementul txtFirstname deoarece este primul câmp de intrare al programului Codul pentru butonul de comandă Exit, desigur, rămâne neschimbat Trebuie făcute unele ajustări la procedura de scriere a numelui în baza de date Pentru o mai mare claritate, voi oferi atât versiunea veche, cât și versiunea nouă a procedurii Mai intai versiunea veche: Sub privat cmdApply Click() Dacă txtlnput Text o "" Atunci Număr = Număr + Nume(Număr) = txtInput Text txtInput Text = "" txtlnput SetFocus Încheiați dacă end sub Permiteți-mi să vă reamintesc ce înseamnă versiunea veche Mai întâi, verifică dacă a fost introdus un nume de familie în câmpul corespunzător Dacă da, atunci numărul de nume de familie introduse (variabila Număr) este mărit cu unul, iar conținutul șirului de intrare este scris în următorul element al matricei Câmpul este apoi șters pentru a introduce noul nume de familie, iar accentul este pus pe acesta nouă Iată o versiune nouă, modificată a aceleiași proceduri: Sub privat cmdApply Click() Dacă txtFirstname Text o "" Și txtNume J Text o "" Apoi ' într-o singură linie! Număr = Număr + MyName(Number) Firstname = J txtFirstname Text MyName(Number) Nume = txtNume Text txtPrenume Text = "" txtSurname Text = "" txtFirstname SetFocus Încheiați dacă end sub Pentru orice eventualitate, voi explica în detaliu ce înseamnă noua opțiune Declarația condiționată if permite introducerea unei noi înregistrări în baza de date numai dacă sunt introduse atât numele, cât și numele În plus, în locul elementului matrice Nume (Număr), în baza de date sunt scrise două elemente care alcătuiesc variabila MyName(Number) Focalizarea revine apoi la primul câmp de intrare Și o mică notă Puteți întotdeauna să îmbunătățiți cumva aspectul programului Rețineți că dimensiunea fontului din câmpul de introducere a numelui nu a fost încă redimensionată corect Fă-o singur! Din formularul de introducere lipsește doar fragmentul de cod legat de butonul Afișați lista Ar trebui să scrie primul element al matricei în câmpul de ieșire al celui de-al doilea formular și apoi să îl numească Anterior, acest cod arăta astfel: Sub privat cmdShow Click() frmChoice IblOutput Caption = Nume( ) frmChoice Show vbModal end sub Trebuie schimbat Ținând cont de faptul că IblFirstname și IblSurname sunt numele elementelor Labei, în care sunt afișate numele și respectiv prenumele, noul cod va arăta astfel: Sub privat cmdShow Click() frmChoice IblFirstname Caption = J Numele meu( ) Prenumele frmChoice IblSurname Caption = J MyName( ) Nume frmChoice Show vbModal end sub Codul anterior pentru butonul Forward arăta astfel: Sub privat cmdForward Click() Dacă X Atunci X = X - IblFirstname Caption = J Numele meu(X) Prenumele IblSurname Caption = MyName(X) Nume Încheiați dacă Buton activ end sub Când apăsați butonul Către fereastra de introducere, formularul de ieșire ar trebui să dispară de pe ecran (pentru a face acest lucru, utilizați comanda Ascunde), iar focalizarea este plasată în câmpul elementului txtFirstname al formularului de intrare Codul relevant arată astfel: Sub privat cmdTo!nput Click() frmChoice Hide frmlnput txtFirstname SetFocus end sub Procedura Form Activate rămâne neschimbată: Private Sub Form Activate() X= Buton activ end sub În cele din urmă, în fereastra de proprietăți a formularului de introducere, setați proprietatea TabIndex a elementului txtFirstname la și elementul txtSurname la Acest lucru va seta automat focalizarea pe câmpul elementului txtFirstname atunci când programul pornește și când tasta Tab este apăsat, cursorul va merge la câmpul de introducere a numelui, așa cum se întâmplă în programele scrise profesional Observați câte avantaje ne-a oferit faptul că am lucrat pe baza unui program creat anterior și nu am început de la bun început Există o recomandare generală pentru crearea de programe mari Când scrieți un program mare cu multe funcții, începeți întotdeauna cu funcțiile principale și asigurați-vă că funcționează corect Completați funcții suplimentare cu ajutorul celor principale, folosind o copie a programului de bază pentru aceasta Apoi, dacă ceva nu funcționează, puteți reveni oricând la versiunea originală Mai multe sarcini mici Dacă utilizatorul nu a introdus nici numele, nici prenumele (sau ambele), atunci făcând clic pe butonul Aplicați nu face nimic Acesta este modul în care este conceput programul, deoarece nu are sens să stocați intrări goale în matrice Cu toate acestea, utilizatorul nu va fi informat de ce s-a întâmplat acest lucru Acest comportament al unui program care ar trebui să fie întotdeauna ușor de utilizat nu este considerat normal Creați o casetă de mesaje (MessageBox), în care utilizatorului i se va explica ce a greșit De asemenea, focalizarea nu este returnată la câmpul de introducere a prenumelui dacă utilizatorul dă clic pe Aplicare fără a introduce nici un prenume, nici un prenume Remediați acest neajuns Meniu Acum putem deja să scriem programe reale sub Windows Cu toate acestea, pentru o interfață tipică pentru acest sistem de operare, încă le lipsește ceva, și anume, meniurile care sunt situate în marginea de sus a ferestrei Shell-ul utilizatorului Visual Basic are o bară de meniu similară cu seturi de comenzi: Fișier Edtt Vizualizare Format proiect Depanare Executare Interogare Diagramă Instrumente Fereastra AdcMns? Lucrăm cu această bară de meniu de mult timp Să vedem cum să creăm un meniu Vom scrie o aplicație cu adevărat utilă, și anume un mic editor de text Cu siguranță nu va fi la fel de puternic ca editorul Microsoft Word, dar cu siguranță mai ușor de utilizat În acest capitol veți învăța: • cum se scrie o aplicație - un editor de text mic; • altceva despre proprietăți și modificarea lor în cod; • ce înțeleg programatorii prin meniuri; • modul de lucru cu imprimanta; • ce sunt funcțiile și cum diferă acestea de proceduri; • cum să utilizați funcția InputBox În stadiul inițial de dezvoltare a oricărui produs software, după cum știți, este necesar să se determine capacitățile acestuia Deci > ce vrem de la un editor de text? În primul rând, ar trebui să vă permită să introduceți text, să îl salvați și să îl imprimați, precum și să descărcați textele existente și să lucrați cu ele Ar trebui să permită utilizatorului să selecteze diferite dimensiuni de font, precum și să stabilească sublinierea și tipul de font: obișnuit, aldine, cursiv Orice editor de text are aceste caracteristici astăzi În plus, o astfel de aplicație are o mulțime de oportunități pentru modificări ulterioare Dacă la sfârșitul acestui capitol aveți și alte idei de extindere, implementați-le - este greu de imaginat un exercițiu mai bun Ca întotdeauna, vom începe prin a defini aspectul programului Creați un nou proiect și denumiți forma frmTextEditor (Editor de text înseamnă „editor de text” în engleză) Valoarea proprietății Caption trebuie să conțină în primul rând numele editorului Să-i spunem Editorul meu De regulă, titlul textului în curs de procesare este scris și în bara de titlu a unui editor de text Deoarece nu există text, folosim următorul titlu: Editorul meu -AnonimOO De obicei, o fereastră de editor de text ocupă întregul ecran, în timp ce aplicațiile noastre anterioare rulau în ferestre mai mici În fereastra de proprietăți există și una care vă permite să determinați dimensiunea ferestrei programului Se numește WindowState și poate lua valori Normal (Normal), Minimizat (Minimizat) și Maximizat (Extins) Alegeți opțiunea Maximizat După ce setați această valoare, nimic nu se va schimba pe ecran Cu toate acestea, după rularea programului, veți vedea că formularul va umple întregul ecran Procesarea textului nu are loc în formă, ci în câmpul controlului TextBox Setați proprietățile sale la următoarele valori: Proprietate Sens Nume MultiLme Text ScrollBars txtTextWindow Adevărat (Gol) -Ambele Proprietatea MultiLine vă permite să introduceți text pe mai multe rânduri Valoarea -Both (Ambele rigle) a proprietății ScrollBars specifică faptul că elementul TextBox poate avea două bare de defilare: orizontală și verticală Această valoare este necesară și pentru lucrul cu text Nu uitați să salvați programul din când în când Cel mai bine este să creați un folder separat pentru acesta, în care veți stoca atât proiectul, cât și formularul În această etapă a lucrării, apare prima problemă Câmpul elementului TextBox ar trebui să ocupe întreaga suprafață liberă a formularului, indiferent de modul în care utilizatorul își va modifica dimensiunea (valoarea proprietății Maximized a proprietății WindowState este doar o setare preliminară) Utilizarea ferestrei de proprietăți nu va reuși: nu știm ce dimensiune ar trebui setată Deci trebuie să scrieți cod Cel mai ușor lucru de rezolvat este colțul din stânga sus al câmpului elementului TextBox Puteți seta poziția acestui colț folosind proprietățile Sus și Stânga Dacă setați ambele proprietăți la zero, atunci acest colț va coincide cu colțul din stânga sus al formularului Deoarece acesta ar trebui să fie întotdeauna cazul, vom seta aceste Valori atunci când programul pornește Ce procedură ar trebui folosită? Așa este, Form Load Îl puteți introduce făcând dublu clic pe formular (frmTextEditor) într-un loc fără controale Asa de: Private Sub Form Load() txtTextWindow Top = O txtTextWindow Left = end sub Este ceva mai dificil să setați înălțimea și lățimea elementului TextBox Ele trebuie să fie în concordanță cu dimensiunile formularului Iar înălțimea și lățimea acesteia sunt stabilite de proprietățile ScaleHeight și, respectiv, ScaleWidth (le cunoașteți din programul exemplu Ball Game) Dacă tot le-ați uitat, consultați Capitolul În el, am folosit o buclă pentru a organiza mișcarea mingii până la marginile formei În același timp, poziția sa actuală a fost comparată cu valorile proprietăților ScaleWidth și ScaleHeight ale formularului În acest caz, nu avem nevoie de o buclă - vom seta lățimea câmpului elementului TextBox la valoarea proprietății ScaleWidth (adică lățimea formularului frmTextEditor), iar înălțimea la valoarea Proprietatea ScaleHeight Asa de: txtTextWindow Width = ScaleWidth txtTextWindow Height = ScaleHeight De ce, când scrieți, de exemplu, frmTextEditor ScaleWidth pentru proprietatea ScaleWidth, nu este necesar să specificați la ce obiect se referă? Faptul este că dacă în sistemul Visual Basic în program codul nu specifica obiectul la care se refera proprietatile, sunt considerate proprietati ale formei curente, si nu ale vreunui element de control Desigur, puteți scrie frmTextEditor ScaleWidth, dar acest lucru nu este necesar Să ne asigurăm că de fiecare dată când utilizatorul redimensionează formularul, elementul TextBox se redimensionează corespunzător În această condiție, aceste comenzi nu pot fi plasate în procedura Form Load, deoarece este executată o singură dată - la pornirea programului și nu răspunde la evenimentele ulterioare Ce se întâmplă dacă ai nevoie de un fel de procedură, dar nu știi cum se numește? Introduceți fereastra de cod și selectați elementul Formular din meniul derulant din stânga Meniul derulant din dreapta listează toate procedurile disponibile Pe baza numelor lor, îl puteți alege pe cel care este necesar Acest meniu arată astfel: Orice procedura - Ce sa aleg? Procedura ar trebui să răspundă la o modificare a dimensiunii formularului Lista conține o procedură de redimensionare Ea este ceea ce avem nevoie Faceți clic pe numele acestei proceduri în listă, iar cadrul de program corespunzător va apărea în fereastra de cod Introduceți liniile de cod de mai sus în această procedură Codul programului ar trebui să arate astfel: Rulați programul și încercați să redimensionați formularul Veți vedea că marja elementului TextBox se redimensionează întotdeauna în consecință Crearea meniului După ce s-au terminat pregătirile, putem lucra la meniu Pentru a-l crea, mediul Visual Basic oferă un instrument auxiliar excelent, și anume Editorul de meniu (Editor de meniu) Hai să-l cunoaștem mai bine Accesați fereastra obiectului și selectați comanda Meli Editor din meniul Instrumente Pe ecran va apărea următoarea fereastră: Fereastra editorului de meniu Tastați &Fișier în câmpul Legendă din fereastra editorului Veți vedea acest cuvânt (cu prima literă subliniată) mai târziu în program Specificați un nume pentru a face referire la acest element de meniu, de exemplu mnuFile (mnu înseamnă că numele specificat se referă la elementul de meniu) Acest element de meniu va apărea imediat în partea de jos a ferestrei editorului de meniu Astfel, puteți urmări cum este construit Fereastra editorului de meniu în această etapă arată astfel: Primul element de meniu Faceți clic pe butonul OK din editor Fereastra acesteia va dispărea și o bară de meniu cu elementul Fișier va apărea în fereastra obiectului Dar meniul trebuie extins Sunați din nou editorul Vom crea un submeniu pentru meniul Fișier Ce elemente ar trebui să fie în acest submeniu? Deschideți meniul Fișier într-un editor de text pentru comparare Cu siguranță vom avea nevoie de elementele Creare, Deschidere, Salvare, Imprimare și Ieșire Puteți veni cu alte comenzi, dar apoi amintiți-vă să scrieți codul pentru ele Faceți clic pe butonul Următorul din editorul de meniu și introduceți &Create în câmpul Caption și mnuNew în câmpul Name Dacă lăsați totul așa cum este, atunci Creați va fi un element separat situat în bara de meniu din dreapta elementului Fișier Pentru a deveni un element de submeniu, faceți clic pe butonul săgeată dreapta situat în mijlocul ferestrei editorului Ca rezultat, acest element de submeniu din fereastra editorului se va muta la dreapta Introduceți următoarele elemente de meniu (după ce ați introdus fiecare dintre ele, apăsați butonul Următorul): &Deschide &Salvează &Tipărește &Ieșire mnuOpen mnuSave mnuPrint mnuSeparate mnuExit Cred că în tabel nu înțelegeți doar alegerea numelui mnuSeparate Pentru aceasta, introduceți o liniuță ca titlu de lege Ca rezultat, comanda din meniu Ieșire va fi localizată separat de restul (cuvântul separat înseamnă „separat”) Fereastra editorului de meniu ar trebui să arate astfel: S-a terminat meniul Fișier Pentru comparație, următoarea figură arată acest meniu extins: În mijlocul formularului se află un element TextBox Nu arată așa cum doriți, dar asta nu contează: dimensiunile și poziția reală sunt stabilite în cod Al doilea element al meniului principal, situat lângă elementul Fișier, ar trebui să fie Format (nume - mnuFormat) Când îl introduceți în fereastra editorului de meniu, apăsați butonul săgeată stânga pentru a-l trimite la meniul principal Mutați din nou comenzile submeniului la dreapta în raport cu numele meniului Submeniul ar trebui să conțină următoarele elemente: &Dimensiunea fontului Semi&Bold &Italic mnuFontSize mnuBold mnultalic Sub&subliniere mnuSuliniere Fereastra editorului de meniu arată astfel: Pentru comparație, vedeți cum arată meniul Format extins în fereastra obiectului: Rulați programul Veți vedea că atunci când selectați unul sau altul element din meniul principal, se deschid submeniuri Dar când specificați comenzile submeniului, nu se întâmplă nimic - așa cum ar trebui, pentru că încă nu le-am programat Să scriem codul Să începem cu cel mai simplu punct, adică prin ieșirea din aplicație În fereastra obiectului, specificați comanda din submeniul Ieșire Se va deschide o fereastră de cod, în care veți vedea următoarele: Privat Sub mnuEnd Click() end sub După cum știți, în acest cod, trebuie să scrieți comanda End Rulați programul și veți vedea că atunci când selectați comanda Exit, programul se va ieși de fapt Deci, v-ați dat seama de principiile editorului de meniu Rămâne doar să scrieți codul pentru toate celelalte elemente de meniu ale editorului nostru de text conform acestui exemplu Noii competitori ai Microsoft Să scriem codul programului pentru elementele individuale de meniu ale editorului de text Selectarea New ar trebui să deschidă o nouă fereastră (adică un alt TextBox) și să permită utilizatorului să navigheze de la o fereastră la alta Deoarece această sarcină este prea complicată pentru noi în această etapă, ne vom limita la ștergerea câmpului elementului TextBox, astfel încât utilizatorul să poată reintroduce text Această abordare este plină de probleme: o alegere accidentală a comenzii Creare va duce la distrugerea întregului text introdus anterior Mai târziu veți vedea cum puteți rezolva această problemă prin emiterea avertismentului corespunzător utilizatorului neagă Știți deja cum să ștergeți câmpul unui element TextBox din capitolul anterior Permiteți-mi să vă reamintesc că pentru a face acest lucru, trebuie să setați valoarea proprietății Text a controlului txtTextWindow la un șir gol Selectați comanda Creare În cadrul programului care apare, introduceți următoarea linie: txtTextWindow Text = Rulați programul și introduceți ceva text (poate fără sens, oricum va fi distrus), apoi specificați comanda Creare Fereastra elementului TextBox se va șterge, iar textul introdus va dispărea pentru totdeauna Să aruncăm o privire la elementul de meniu Imprimare În primul rând, voi da textul codului, apoi îl vom discuta: Printer Print txtTextWindow Text Printer EndDoc Să vedem ce înseamnă aceste rânduri Printer în engleză înseamnă „printer” Comanda Prinț îi spune imprimantei să imprime ceva Observați operatorul postfix Când se ajunge la sfârșitul documentului (EndDoc), acesta ar trebui să înceapă tipărirea Cu toate acestea, este recomandabil să luați anumite măsuri de precauție Imprimarea trebuie făcută numai dacă caseta de text nu este goală, ceea ce este asigurat de instrucțiunea if Întregul cod al programului arată astfel: Sub privat mnuPrint Click() Dacă txtTextWindow Text = "" Atunci MsgBox „Fără text de imprimat” Ieșire din sub Încheiați dacă Printer Print txtTextWindow Text Printer EndDoc end sub Acest cod ar trebui să fie clar pentru tine Comanda Exit Sub a fost discutată în capitolul din secțiunea „Numărarea continuă” Acțiunea comenzii este de a întrerupe executarea procedurii Prin urmare, celelalte operațiuni specificate în acesta (în cazul nostru, tipărirea textului) nu sunt efectuate Elementele de meniu Deschidere și Salvare vor fi discutate mai târziu Pentru ei, veți avea nevoie de informații care vor fi discutate doar în capitolul următor Și acum ne vom ocupa de meniul Format Stilul de font aldine Deschideți meniul Format din fereastra obiectului și faceți clic pe Bold După cum era de așteptat, în fereastra de cod veți vedea următoarele: Sub privat nmuBold Click() end sub Între aceste două linii, trebuie să plasați comenzi care vor oferi un font aldine în câmpul elementului TextBox Proprietatea corespunzătoare se numește FontBold (Bold) Pentru a face stilul font aldine, această proprietate ar trebui să fie setată la True: txtTextWindow FontBold = Adevărat Deoarece înțelegerea clară a acestor constructe este esențială pentru stăpânirea limbajului Visual Basic, voi explica această linie în detaliu txtTextWindow este numele elementului TextBox El, ca orice element de control, are anumite proprietăți, ale căror valori sunt setate fie în fereastra de proprietăți, fie în codul programului Ele sunt specificate în cod folosind un operator postfix conform schemei „Nume element de control - operator postfix - proprietate - semn de atribuire (=) - valoare” În acest caz, proprietatea FontBold a elementului numit txtTextWindow este setată la True În consecință, textul din câmpul acestui element va deveni aldin Cu cât lucrați mai mult cu operatorul postfix și cu operatorii de atribuire, cu atât le veți stăpâni mai rapid și mai bine Cu toate acestea, introducând aceste linii, vom întâlni următoarea problemă: utilizatorul nu poate reveni la normal (nu semi- aldine) stil de font Această situație trebuie corectată Cea mai profesionistă soluție la această problemă ar fi crearea unui așa-numit comutator: atunci când utilizatorul selectează comanda Bold pentru prima dată, fontul este setat la bold Când o specifică din nou, programul revine la stilul obișnuit și așa mai departe Să scriem codul corespunzător Adesea, atunci când scrieți un program pentru a rezolva o problemă care a apărut, este util să îl formulați clar în limbajul obișnuit, de zi cu zi - și soluția se naște de la sine Să încercăm să facem asta Să ne formulăm sarcina după cum urmează: dacă stilul aldine nu este încă setat și utilizatorul selectează comanda corespunzătoare, atunci este setat; dacă este deja specificat, atunci selectarea acestei comenzi din nou revine la stilul normal Este clar că ar trebui să utilizați declarația if, care descrie doar construcțiile „dacă – atunci” Așadar, introducem în procedură Sub privat mnuBold Click() end sub următorul cod: Dacă txtTextWindow FontBold = Fals, atunci 'dacă greutatea actuală nu este îndrăzneață txtTextWindow FontBold = Adevărat 'Atunci setează bold Altfel txtTextWindow FontBold = Fals altfel revin la normal Încheiați dacă Pentru mai multă claritate, am introdus comentarii în cod Desigur, nu le puteți rescrie Cu toate acestea, utilizatorul vizat s-ar putea întreba ce indică dacă stilul fontului este obișnuit sau aldine în fereastra editorului înainte de introducerea textului? Acest neajuns al aplicației trebuie abordat Când se rezolvă această problemă în aplicațiile profesionale, o bifă (✓) este plasată în fața elementului de meniu dacă este setat bold și este eliminată dacă este normal Această tehnică este ușor de implementat folosind proprietatea Checked a elementelor de meniu Setând-o la True, marcați comanda curentă cu o bifă Prin urmare, putem scrie următoarele în codul programului: mnuBold Checked = Adevărat Includeți această linie în corpul declarației condiționate: Sub privat mnuBold Click() Dacă txtTextWindow FontBold = False, atunci txtTextWindow FontBold = Adevărat mnuBold Checked = Adevărat Altfel txtTextWindow FontBold = Fals mnuBold Checked = Fals Încheiați dacă end sub Rulați programul și vedeți cum este folosit bifa Trebuie să rezolvăm ultima problemă Până acum, am afișat doar text și l-am setat la aldine sau obișnuit Pentru a spune imprimantei în ce font ar trebui să fie tipărit textul, să folosim proprietatea FontBold a imprimantei Să facem o procedură pentru setarea stilului la afișarea textului pe ecran și pe imprimantă Ea arata asa: Sub privat mnuBold Click() Dacă txtTextWindow FontBold = Fals, atunci txtTextWindow FontBold = True mnuBold Checked - True Printer FontBold = Adevărat Altfel txtTextWindow FontBold - False mnuBold Checked = Fals Printer FontBold = False Încheiați dacă end sub Rulați programul și veți vedea că nu funcționează așa cum doriți Eșuează, ca în editorii de text obișnui, setați stilul aldine numai pentru anumite părți ale textului, păstrând restul textului în mod normal Același tip este setat imediat pentru tot textul Din păcate, nu există altă modalitate de a realiza acest lucru atunci când utilizați controlul TextBox Cu toate acestea, există două posibilități de a rezolva această problemă Una este să utilizați elementul PictureBox în loc de TeztBox, iar cealaltă este să utilizați controlul RichTextBox (Fereastră formatată), care este conectat într-un mod special Cu toate acestea, o discuție despre aceste metode depășește cu mult scopul acestui curs elementar Prin urmare, vom continua să lucrăm cu elementul TextBox obișnuit Ultima împingere Codul pentru elementele de meniu Italic și Subliniat este scris într-un mod similar Proprietatea elementelor txtTextWindow și Printer responsabile pentru stilul italic se numește Fontltalic (Italic), iar proprietatea care permite sublinierea FontUnderline (Subliniată) Scrieți singur codul, va fi un exercițiu bun Dar mai întâi, îți voi da un mic sfat Dacă trebuie să modificați valorile oricăror proprietăți (de exemplu, FontBold, Fontltalic sau FontUnderline) în timpul execuției aplicației, atunci este recomandabil să le atribuiți niște valori inițiale chiar la începutul aplicației Acest lucru va ajuta la prevenirea blocărilor pe sistemul Visual Basic și pe imprimantă În cazul nostru H pentru toate proprietățile specificate, ar trebui să setați valoarea inițială la False (font normal) Această operație trebuie efectuată când formularul este încărcat (adică în procedura Form Load) Încercați să scrieți codul de program corespunzător Pentru orice eventualitate, o voi include în întregime Acesta este un text destul de lung, dar am explicat în detaliu toate părțile sale constitutive Am evidențiat noile fragmente de cod cu caractere cursive Concentrează-te asupra lor și citește restul doar dacă ceva nu este clar Opțiunea explicită Private Sub Form Load() txtTextWindow Top = txtTextWindow Left = txtTextWindow FontBold - False txtTextWindow Fontltalic = Fals txtTextWindow FontUnderline = Fals Printer FontBold = False end sub Private Sub Form Resize() txtTextWindow Width = ScaleWidth txtTextWindow Height = ScaleHeight End Sub Sub privat mnuPrint Click( ) Dacă txtTextWindow Text = "" Atunci MsgBox „Fără text de imprimat” Ieșire din sub Încheiați dacă Printer Print txtTextWindow Text Printer EndDoc end sub Privat Sub mnuEnd Click() Sfârşit end sub Sub privat mnuBold Click() Dacă txtTextWindow FontBold = False, atunci txtTextWindow FontBold - True mnuBold Checked = True Printer FontBold = True Altfel txtTextWindow FontBold = Fals mnuBold Checked = Fals Printer FontBold = False Încheiați dacă end sub Private Sub mnultalic Click() Dacă txtTextWindow Fontltalic = False, atunci txtTextWindow Fontltalic=Adevărat mnultalic Checked=Adevărat Printer Fontltalic = Adevărat Altfel txtTextWindow Fontltalic = Fals mnultalic Checked = Fals Printer Fontltalic = False Încheiați dacă end sub Sub privat mnuUnderline Click() Dacă txtTextWindow FontUnderline = False Apoi txtTextWindow FontUnderline = Adevărat mnuUnderline Checked - True Printer FontUnderline = Adevărat Altfel txtTextWindow FontUnderline = Fals mnuUnder ine Checked = Fals Printer FontUnderline = Fals Încheiați dacă end sub Sub privat mnuNeu Click() txtTextFenster Text = "" end sub Acesta este textul primului program profesional real Acum rămâne doar să scrieți codul pentru elementul de meniu Font Size Utilizatorul trebuie să poată seta independent valoarea necesară Uitați-vă la următorul fragment de cod: Private Sub mnuFontsize Click() Dim InputValue As String InputValue = InputBox ("Introduceți dimensiunea fontului J:", "Fontsize", " ") Dacă InputValue este aproximativ „”, atunci txtTextWindow FontSize = InputValue Încheiați dacă end sub Ca întotdeauna, programul poate fi completat Dar să aruncăm o privire la acest cod În primul rând, introduceți-l și lansați aplicația Când selectați comanda de meniu corespunzătoare, pe ecran va apărea următoarea fereastră: Setarea dimensiunii fontului Introduceți un număr în câmpul de introducere și faceți clic pe OK Dimensiunea fontului TextBox se va modifica în consecință Dacă faceți clic pe butonul Anulare, dimensiunea fontului va rămâne la Ce se întâmplă în cod? Mai întâi, declarăm o variabilă de tip String: Dim InputValue ca șir Pe linia următoare, i se atribuie o valoare Acordați atenție modului în care se desfășoară misiunea Evident, operatorul InputInput oferă o anumită valoare De asemenea, se spune că returnează o valoare Este atribuită variabilei InputValue Valori returnate În învățarea limbajului Visual Basic, am ajuns la un punct foarte important Trebuie să o înțelegi cu atenție Salvați programul și creați un nou proiect După cum vă amintiți, pentru a adăuga o procedură la program, trebuie să selectați comanda Adăugare procedură din meniul Instrumente Pe ecran va apărea următoarea fereastră: Aruncă o privire atentă la el Pe lângă comutatorul secundar, veți găsi și comutatorul Funcție Faceți clic pe acest buton radio și denumiți-l Adăugare Fereastra va arăta astfel: Faceți clic pe OK Următorul text va apărea în fereastra de cod: Prima noastră funcție Acest text este foarte asemănător cu cadrul unei proceduri Cu toate acestea, spre deosebire de o procedură, o funcție returnează o anumită valoare pentru lucrări ulterioare Aceasta este diferența fundamentală dintre o procedură și o funcție Introdu următorul cod: Opțiunea explicită Private Sub Form Load() Debug Printa Addition End Sub Adăugarea funcției publice() adaos= funcția finală Când programul este executat, numărul va apărea în fereastra de depanare Astfel, am făcut următoarele: am scris funcția Adăugare și i-am atribuit valoarea Apoi am apelat-o (pentru aceasta, numele funcției a fost scris în spatele comenzii Debug Prinț) Rezultatul este același ca și cum am scrie numărul după această comandă De ce avem nevoie de funcții, vă întrebați? În acest exemplu, acestea nu sunt necesare și doar complică programul Scopul meu a fost să vă prezint elementele de bază ale modului în care funcționează funcțiile În exemplul următor, veți vedea că acestea sunt într-adevăr foarte utile Modificați textul codului exemplu după cum urmează: Opțiunea explicită Private Sub Form Load() Debug Prinț Addition End Dub Adăugarea funcției publice() Adunare= + funcția finală Vezi ce s-a schimbat? Valoarea nu este doar atribuită funcției, ci este calculată în cadrul acesteia Iar calculele, desigur, pot fi mult mai complexe decât în acest exemplu Mai mult decât atât, până acum funcția noastră a returnat întotdeauna valoarea Cu toate acestea, puteți transmite valori funcției, pe baza cărora va efectua calcule Acesta este scopul său principal Permiteți-mi să vă explic cum sunt transmise valorile Luați în considerare un exemplu: Opțiunea explicită Private Sub Form Load() Debug Printa Addition( , ) end sub Adunarea funcției publice (fx ca întreg, fy ca întreg) Adunare = fx + fy funcția finală Deci, pentru a apela o funcție, se scrie numele acesteia, urmat de argumentele cu care ar trebui să funcționeze între paranteze În textul funcției în sine, variabilele în care sunt scrise valorile transferate sunt indicate între paranteze Cu ele, funcția efectuează acțiuni suplimentare Aceste variabile sunt numite parametri în limbajul profesional În exemplul nostru, funcției i se transmit două valori, și anume numerele și Prima dintre ele o scrie variabilei f x (numele variabilelor pot fi oricare), iar a doua în fy Funcția efectuează apoi acțiuni cu variabilele specificate Ca urmare, ia valoarea și o returnează în locul din aplicația din care a fost chemat (linia Debug Prinț) Acest lucru este atât de important încât vom lua în considerare un alt exemplu în acest sens subiect Introduceți următorul cod de program: Opțiunea explicită Private Sub Form Load() Dim InputValue As Single InputValue = , Debug Prinț Quadrate(InputValue) End Sub Pădrat al funcției publice (număr ca unic) Quadrate = Număr * Număr funcția finală Rulați programul Numărul va apărea în fereastra de depanare - Din acest exemplu, am învățat ceva nou despre o funcție: variabilele pot fi folosite ca argumente, nu doar valori fixe Acesta este ceea ce se întâmplă cel mai des De exemplu, utilizatorul introduce niște valori, care sunt apoi scrise în variabile și transmise funcției \І Numărul de argumente ale funcției poate fi arbitrar H Sunt permise toate tipurile de date Exemplele au folosit tipuri Integer și Single, dar a fost posibil să se lucreze și cu String Este necesar doar să vă asigurați că tipul de date și numărul de argumente transmise se potrivesc cu tipul de date și numărul parametrilor funcției Altfel va fi confuzie Funcția InputBox După ce ne-am familiarizat cu conceptul de funcție, să revenim la inputBox Această funcție nu trebuie scrisă deoarece este furnizată de limbajul Visual Basic Luați în considerare din nou cu valorile necesare pentru un editor de text: InputBox("Introduceți dimensiunea fontului:","Mărimea fontului", " ") Următoarele sunt transmise ca argumente pentru această funcție: • variabilă de tip String, afișată în caseta de intrare (InputBox); • variabilă de tip String, afișată în antetul ferestrei de introducere; • o variabilă de tip String, care specifică valoarea implicită returnată de funcție dacă utilizatorul nu a făcut nicio modificare Funcția are mult mai multe argumente decât cele descrise în text, dar nu este necesar să le specificați pe toate Cel mai des este folosit exact în forma în care l-am prezentat Care este valoarea returnată de funcția InputBox? Dacă utilizatorul face clic pe butonul Anulare, va fi returnat un șir gol În caz contrar (prin apăsarea butonului OK), va fi returnată valoarea din câmpul de introducere În special, poate fi valoarea implicită (în cazul nostru, „ ”) Nu este returnat ca un număr, ci ca o variabilă String, deoarece există aplicații în care utilizatorului i se cere să introducă ceva text, să zicem o parolă Restul programului ar trebui să vă fie clar Valoarea returnată de funcția InputBox este atribuită variabilei InputValue, care a fost declarată anterior ca o variabilă de tip String Apoi verifică dacă noua sa valoare este un șir gol Dacă este, atunci nu are loc nicio reacție În caz contrar, este atribuit proprietății FontSize a elementului casetă de text și programul începe să folosească noua dimensiune a fontului În cele din urmă, să setăm dimensiunea fontului pentru imprimantă: Printer FontSize - txtTextWindow FontSize Astfel, prima etapă de lucru la un editor de text mic este finalizată Mai multe sarcini mici Scrieți un program care cere utilizatorului să-și introducă numele într-o InputBox După ce utilizatorul efectuează acțiunile specificate, pe ecran ar trebui să fie afișată o casetă de mesaj (MessageBox) cu un salut care conține un apel către utilizator după nume Scrieți un program în care utilizatorul introduce două numere în câmpurile a două TextBoxes Folosind funcția, programul ar trebui să le adună și să afișeze rezultatul în câmpul elementului Labei , - Lucrul cu date Până acum, toate datele introduse de utilizator s-au pierdut atunci când aplicațiile noastre se încheie Vom încerca să corectăm acest neajuns În acest capitol veți învăța: • cum să afișați un fișier text salvat anterior pentru a-l citi sau modifica; • cum să salvezi informații într-un fișier text, astfel încât să nu dispară nici după oprirea computerului; • cum să utilizați controalele DriveListBox, DirListBox și FileListBox; • cum se scrie un program astfel încât să fie ușor de lucrat cu el; • cum se descompun variabilele de tip String în părți componente Cum se deschide un fișier? Să presupunem că utilizatorul dorește să încarce un fișier într-un editor de text, de exemplu, text scris anterior, pentru a-l revizui și corecta Acest fișier poate fi localizat oriunde - în rădăcină sau în orice alt folder Când selectați comanda Deschidere, pe ecran ar trebui să apară o fereastră în care utilizatorul trebuie să specifice fișierul dorit Visual Basic are un set de controale adaptate în acest scop Trebuie doar să le plasăm în formular și să le legăm între ele Ce este necesar pentru ca o aplicație să recunoască unic un fișier? În primul rând, trebuie să determinați pe ce disc se află - pe o dischetă din unitatea A, pe una dintre hard disk-uri sau pe un CD Apoi ar trebui să determinați folderul de pe unitatea selectată și, în sfârșit, numele fișierului De exemplu: AUTO DOCUMENTE\SCRISORI SCRISORI Să ne uităm la bara de instrumente a mediului Visual Basic În partea de jos a acestuia vom găsi trei elemente cu nume adecvate: • DriveListBox (Lista unităților) Listează unitățile disponibile pe computerul utilizatorului • DirListBox (Lista de foldere) Listează toate folderele de pe disc • FileListBox (Lista de fișiere) Listează toate fișierele din folder Creați un formular nou în programul de editare de text (pentru a face acest lucru, selectați comanda Adăugare formular din meniul Proiect) Plasați controalele DriveListBox, DriveListBox și FileListBox în el, precum și două butoane de comandă Formularul ar trebui să arate astfel: Ferestrele elementelor de control: stânga sus - DriveListBox, dedesubt - DirListBox, dreapta - FHeListBox Tabelul arată valorile proprietăților Caption și Name ale acestor elemente: etc element Formular frmOpen Deschide un fișier DriveListBoxDrv DirListBox Dir Fișier FileListBox Butonul de comandă cmdOK & K Butonul de comandă cmdAnulare Anulare&Anulare Salvați noul formular într-un folder destinat unui editor de text Pentru a apela acest formular, trebuie să specificați comanda Deschidere în meniul formularului txtTextEditor și să intrați în cadrul programului care apare Sub privat mnuOpen Click() end sub următorul rând, deja cunoscut de dvs din aplicația Nume: frmOpen Show vbModal Rulați programul și, selectând comanda Deschidere, mergeți la fereastra Deschidere document Selectează unități, foldere și fișiere cod de nume Cele trei comenzi ale noastre nu au legătură între ele în niciun fel Când selectați o altă unitate în ferestrele de foldere și fișiere, nimic nu se schimbă Legătura dintre elemente este stabilită în program Este timpul să vă familiarizați cu încă două concepte ale limbajului Visual Basic Nu este necesar să le memorați - este suficient să înțelegeți suficient de bine ceea ce s-a spus În primul rând, să setăm fereastra folderului astfel încât să reacționeze la modificările de disc Cu alte cuvinte, când comutați în fereastra unității de la unitatea C: la D:, fereastra folderelor ar trebui să afișeze folderele situate pe unitatea D: Faceți dublu clic pe controlul DriveListBox Următoarele linii vor apărea în fereastra de cod: Privat Sub Drv Change() end sub Astfel, limbajul Visual Basic presupune implicit că vom lucra cu procedura Change Într-adevăr, avem nevoie exact de această procedură În cadrul procedurii, tot ce trebuie să faceți este să introduceți o linie: Dir Path = Drv Drive Cuvântul Path (care înseamnă „cale” în engleză) înseamnă folderul în care se află fișierul, de exemplu, C: \ documentele mele \ litere Ca cale, folosind simbolul de atribuire (=) (numit și operator de atribuire), setăm discul selectat DirListBox ar trebui să afișeze acum folderele de pe unitatea specificată Rulați programul și selectați un alt hard disk sau CD în DriveListBox Afișarea ferestrei elementului DirListBox se va modifica în consecință Dacă selectați unitatea A: (o dischetă) și nu se află în unitate, pe ecran va apărea următoarea casetă de mesaj de eroare: Programul a încercat să acceseze un mediu de stocare inexistent Desigur, acest lucru a dus la o eroare Eroare la procesare Deci, am ajuns la un alt punct important Programatorul presupune întotdeauna că utilizatorul va face cu siguranță greșeli, atât minore, cât și cele mai grave Pentru a le preveni, programatorul trebuie să scrie părți din cod responsabile pentru prevenirea blocării aplicației Să vedem cum se face Imaginează-ți o situație în care utilizatorul a selectat o unitate care nu conține o dischetă În primul rând, voi da codul pentru procedura de gestionare a erorilor și apoi vom încerca să-l înțelegem: Privat Sub Drv Change() La eroare GoTo ErrorHandling Dir Path = Drv Drive ieșire sub Eroare de manipulare: MsgBox „Unitatea nu este disponibilă!” Drv Drive = Dir Path ieșire sub end sub (ErrorHandling în traducerea din engleză înseamnă „tratarea erorilor”) Această bucată de cod înseamnă următoarele: „Dacă apare o eroare, accesați o altă secțiune a programului numită ErrorHandling Nu efectuați alți pași Afișează o casetă de mesaj Reveniți la unitatea anterioară și părăsiți procedura Dacă nu apare nicio eroare, navigați în elementul DirListBox la noua unitate Ieșiți din procedură și nu urmați instrucțiunile din secțiunea ErrorHandling " Comanda Visual Basic GoTo face ca programul să sară la o altă bucată de cod, căreia programatorul îi dă un nume (în cazul nostru, ErrorHandling) Programul determină această secțiune prin faptul că este precedată de numele său cu două puncte După cum sa menționat deja, fragmentul de cod specificat ar trebui să fie executat numai dacă apare o eroare Aceasta este furnizată de instrucțiunea Op Eggog (tradusă din engleză, numele său înseamnă „în caz de eroare”) Dacă nu există nicio eroare, atunci se efectuează acțiunile despre care am vorbit mai devreme Instrucțiunea Exit Sub iese apoi din procedură, astfel încât instrucțiunile ulterioare de tratare a erorilor să nu fie executate Dacă nu scrieți această instrucțiune, atunci mesajul de eroare va fi întotdeauna emis! Când apare, o casetă de mesaj este afișată pentru a anunța utilizatorul despre aceasta (programul nu se blochează) O linie de cod, și anume: Drv Drive - Dir Path îndeplinește următoarele funcții Utilizatorul a selectat o unitate care nu poate fi accesată Elementul DriveListBox trebuie să specifice unitatea instalată anterior în el Informațiile de pe disc sunt stocate în proprietățile elementului DirListBox, care nu este afectat de modificări Prin urmare, are loc atribuirea - restabilirea stării anterioare Apoi, atribuiți controlul FileListBox folderului selectat în DirListBox Acest lucru se face în același mod în care a fost stabilită conexiunea între disc și foldere Dacă un folder trebuie să fie asociat cu un fișier, atunci atribuirea arată astfel: File Path - Dir Path Aceasta este singura linie din procedura Private Sub Dir Change() care este introdusă făcând dublu clic pe elementul DirListBox În acest caz, nu este nevoie să scrieți cod pentru a gestiona erorile, deoarece utilizatorul nu va putea selecta un folder care oricum nu există Să ne uităm la textul codului programului scris până acum: Este necesar să testați din nou programul (în general, acest lucru ar trebui făcut cât mai des posibil pentru a observa eroarea într-un stadiu mai devreme) Rulați-l și încercați să selectați diferite unități, foldere și fișiere În cele din urmă, scopul acestei părți a programului este de a selecta un fișier și de a-l încărca în TextBox-ul frmTextEditor Acum mergem do Să presupunem că doriți să deschideți fișierul LETTER aflat pe unitatea C: Să selectăm această unitate în fereastra elementului DriveListBox În fereastra elementului DirListBox, specificați folderul în care se află fișierul necesar (DOCUMENTELE MELE \ SCRISOARE) Prin urmare, valoarea proprietății Path a elementului File este C:\My DocumentsMails Dacă într-adevăr aveți un astfel de fișier în folder, atunci acesta va apărea în fereastra de element FileListBox Formularul de selectare a fișierelor arată astfel: Dar indiferent ce facem - selectați acest fișier și apăsați butonul OK sau faceți dublu clic pe el cu mouse-ul - aplicația nu reacționează în niciun fel Să scriem codul - Dacă nu aveți un fișier denumit LETTERS în folderul specificat, lucrați cu orice fișier care se deschide în fereastra editorului nostru de text (adică cu un fișier cu extensia txt sau doc) Nu trebuie să creați și folderele menționate în acest exemplu Evident, pentru a deschide un fișier, trebuie să-i cunoașteți nu numai calea, ci și numele cale C:\DOCUMENTELE MELE\SCRISORI este valoarea proprietății Fișier Cale Avem nevoie de un plus, pe care îl obținem din fereastra de selecție a fișierelor: C:\DOCUMENTELE MELE\PISBMA\LETTERS Faceți dublu clic pe elementul FileListBox Se va deschide o fereastră de cod cu următorul text: Private Sub File Click() end sub Pentru a asigura vizibilitatea codului și a economisi timp, declarăm mai întâi o variabilă care va stoca calea completă, inclusiv numele fișierului Trebuie să fie disponibil sub orice formă Prin urmare, în partea declarativă a formularului, direct sub linia Opțiune explicită, scrieți următoarele: Dim FileNm ca șir Reveniți la procedura File Click În primul rând, scrie în el: FileNm = File Path Includeți numele fișierului în valoarea acestei variabile Numele fișierului selectat în câmpul FileName al elementului este stocat în proprietatea FileListBox a elementului Poate ar trebui scris asa: FileNm = FileName + File FileName Să verificăm dacă această instrucțiune este corectă Introduceți acest cod în cadrul procedurii și adăugați instrucțiunea Debug Prinț FileNm Întregul cod ar trebui să arate astfel: Private Sub File Click() FileNm = File Path FileNm = FileNm = File FileName Debug Prinț FileNm end sub Rulați programul și căutați în fereastra de depanare Am primit mesaj C:\DOCUMENTELE MELE\LETTERSLETTERS Lipsește o bară oblică inversă (\) între SCRISOARE și SCRISOARE În unele cazuri, este adăugat automat Cu toate acestea, trebuie specificat întotdeauna, altfel fișierul nu poate fi recunoscut și încărcat în elementul TextBox Pentru a rezolva această problemă, primul pas este să determinați dacă valoarea proprietății Fișier este la sfârșit Bară oblică inversă a căii Dacă da, atunci totul este în regulă Dacă nu, ca în acest exemplu, atunci trebuie instalat Prin urmare, va trebui să utilizați un operator condiționat, a cărui acțiune poate fi tradusă în limbajul obișnuit în acest fel: „Dacă nu există bară oblică inversă la sfârșitul valorii proprietății File Path, puneți una ” Pentru a determina dacă există, trebuie să determinați care caracter este ultimul caracter din valoarea proprietății File Path Pentru a face acest lucru, avem nevoie de mai multe informații despre variabilele de tip String opt* Operații cu variabile șir Iată codul de program corespunzător în forma sa finală: Private Sub File Click() FileNm = File Path Dacă Dreapta(FileNm, ) sau „\” i Apoi FileNm = FileNm + "\" FileNm = FileNm + File FileName Debug Prinț FileNm end sub Linia nouă (afișată cu italice) urmează alocarea variabilei FileNm Comanda Right văzută în acest fragment de cod este o funcție, ceea ce înseamnă că preia argumente și returnează o valoare Funcției în cauză i se transmite o variabilă de tip String și un număr ca argumente Specifică câte caractere dintr-o variabilă String trebuie citite, începând din dreapta Aceste caractere sunt valoarea returnată Voi da un exemplu: Opțiunea explicită Private Sub Form Load() Dim Partstring As String Parte șir = Dreapta(„Sergey”, ) Debug Printa Partstring end sub Când rulați acest cod (dacă doriți, creați un nou proiect pentru el), litera „y” apare în fereastra de depanare Într-adevăr, dacă ne limităm la un caracter al cuvântului „Serghey”, începând din dreapta, atunci se va dovedi a fi „al-lea” Dacă introduceți instrucțiunea Partstring =Dreapta(„Sergei”, ) atunci rezultatul execuției programului va fi „ea”, adică ultimele două litere ale cuvântului „Sergei” În plus, există funcția Left, care citește un șir de caractere din stânga Rezultatul executării instrucțiunii Left („Sergei”, ) este „Se” Astfel, în cazul nostru, folosind instrucțiunea Dreapta (FileNm, ) obținem ultimul caracter din variabila FileNm Dacă se dovedește a nu fi o bară oblică inversă (operatorul de comparație o), atunci este pus Ca rezultat, numele folderului care conține fișierul dorit se termină cu o bară oblică inversă Apoi este atașat cu numele fișierului care urmează să fie încărcat în câmpul elementului TextBox În versiunea finală a programului, linia Debug Prinț, desigur, trebuie înlăturat Să rezumam câteva rezultate Deci, utilizatorul a selectat folosind comanda Deschidere fișierul pe care ar dori să îl încarce în fereastra editorului de text Numele acestui fișier cu calea completă este stocat în variabila FileNm Să facem ultimul pas: deschide-l Pentru a face acest lucru, apăsați butonul OK situat în fereastra Deschidere document Lucrul cu fișiere Faceți dublu clic pe butonul OK din fereastra obiect a formularului Open Document Se va deschide o fereastră de cod cu scheletul programului: Sub privat cmdOK Click() end sub În această procedură, trebuie să deschideți fișierul, astfel încât utilizatorul să poată lucra cu el, cum ar fi modificarea sau adăugarea acestuia Desigur, ar trebui să specificăm numele fișierului Este stocat în variabila FileNm, astfel încât instrucțiunea corespunzătoare arată astfel: Deschideți FileNm pentru intrare (Orep For Input în engleză Înseamnă „deschis pentru intrare”) Sistemul de operare Windows, care este unul dintre sistemele care vă permit să operați simultan cu mai multe fișiere În limbajul profesional, acest mod de lucru se numește multitasking De exemplu, puteți imprima text pe o imprimantă și puteți juca un joc pe computer în același timp Această metodă este convenabilă pentru utilizator, dar creează anumite probleme pentru programator: la urma urmei, sistemul de operare trebuie să știe exact la ce fișier se referă apelul Open, altfel va apărea haosul Pentru a face acest lucru, fiecărui fișier i se atribuie imediat un număr atunci când este deschis Este specificat de fiecare dată când este accesat (de exemplu, la deschiderea unui fișier folosind comanda Deschidere) Acest lucru evită confuzia În primul rând, ar trebui să declarați o variabilă de tip Integer, care va stoca numărul fișierului Introduceți următorul rând la începutul procedurii: Dim FileNumber ca întreg În plus, Visual Basic trebuie să cunoască lungimea fișierului pentru a-l citi corect Deci, să introducem o altă variabilă: Dim FileLength As Long În loc de Integer, am ales Long, astfel încât să putem lucra cu fișiere mari După ce se fac declarațiile, stabilim numărul dosarului Nu trebuie inventat În acest scop, există o funcție specială care returnează numărul fișierului Se numește FreeFile Această funcție este o excepție de la regula generală: nu îi sunt transmise argumente Introduceți următoarea linie de cod: FileNumber - FreeFile Iată textul scris al codului pentru comparație: Sub privat cmdOK Click() Dim FileNumber ca întreg Dim FileLength As Long FileNumber = FreeFile end sub Să verificăm dacă a fost selectat vreun fișier de către utilizator înainte de a face clic pe butonul OK Dacă Visual Basic ar deschide un document într-o situație în care nu a fost specificat, atunci ar apărea inevitabil o eroare Pentru a o evita, să verificăm dacă valoarea variabilei FileNm este un șir gol Dacă este, atunci ar trebui să dați utilizatorului un mesaj despre acesta și să părăsiți procedura Introdu următorul cod: Dacă FileNm = "" Atunci MsgBox „Niciun fișier selectat!” ieșire sub Încheiați dacă Rulați programul, intrați în fereastra Open Document și apăsați butonul OK fără a selecta un fișier Pe ecran ar trebui să apară un mesaj Să începem prin a deschide fișierul Pentru a face acest lucru, la sfârșitul instrucțiunii if, introduceți următoarea linie: Deschideți FileNm pentru introducere ca FileNumber Acest manual nu necesită completări Indică numele fișierului, numărul și tipul deschiderii (Intrare - pentru introducere) Să trecem la determinarea lungimii fișierului Este important să știi, deoarece este necesar ca fișierul M indicat să fie citit complet de pe disc Există o funcție LOF în acest scop Numele ei este o abreviere pentru cuvintele engleze Length Of File (lungimea fișierului), iar toate literele din acesta sunt de obicei majuscule Introduceți următorul rând în textul codului programului: FileLength - LOF(FileNumber) Astfel, numărul fișierului este transmis ca argument acestei funcție și returnează lungimea acestuia, care este stocată în variabila FileLength Această secvență de acțiuni la deschiderea unui fișier este strict definită în limbajul Visual Basic și trebuie urmată Apoi, trebuie să încărcați conținutul fișierului deschis într-o fereastră de editor de text Acest lucru se face astfel: frmTextEditor txtTextWindow Text = J Intrare (FileLength, FileNumber) În partea stângă a acestei instrucțiuni, se face un apel din fereastra Open Document către un control situat într-o altă formă (frmTextEditor) Prin urmare, numele ei ar trebui să fie în față Apoi urmează numele elementului TextBox (txtTextWindow) și în final numele proprietății (Text) În partea stângă este funcția de intrare Argumentele sale sunt numărul de caractere de imprimat, adică lungimea fișierului și numărul acestuia Valoarea returnată este de tip String Conține tot conținutul fișierului Deci, conținutul fișierului este încărcat în câmpul elementului TextBox și afișat pe ecran Scopul a fost atins Cu toate acestea, asta nu este tot: există încă câțiva pași importanți care trebuie luați pentru a evita o posibilă defecțiune a sistemului Amintiți-vă: un fișier deschis trebuie să fie închis! În caz contrar, se vor „atârna” în sistem, iar acest lucru nu va duce la nimic bun Deci următoarea comandă ar trebui să fie Închideți FileNumber (Închidere în traducerea din engleză înseamnă „a închide”) Adăugați numele fișierului deschis la valoarea proprietății Caption a ferestrei principale Acest lucru se face folosind următoarea instrucțiune: frmTextEditor Caption - „Editorul meu” + FileNm Și, în concluzie, eliminați formularul pentru deschiderea fișierelor de pe ecran Folosește echipa Ascunde Pentru comparație, iată textul complet al codului programului legat de butonul OK: Sub privat cmdOK Click() Dim FileNumber ca întreg Dim FileLength As Long FileNumber = FreeFile Dacă FileNm = "" Atunci MsgBox „Niciun fișier selectat!” ieșire sub Încheiați dacă Deschideți FileNm pentru introducere ca FileNumber FileLength = LOF(FileNumber) frmTextEditor txtTextWindow Text - Intrare (FileLength, FileNumber) Închideți FileNumber frmTextEditor Caption = „Editorul meu” + J FileNm Ascunde end sub Mai multe sarcini mici Nu am scris încă codul pentru butonul Anulare Când este apăsat, formularul dispare și fișierul nu este încărcat O singură comandă este suficientă pentru asta Să presupunem că fișierul este deja încărcat și veți șterge caseta de text selectând comanda Nou Dar numele fișierului descărcat rămâne în bara de titlu a programului Corectați această situație prin întoarcerea antetului la forma sa originală: numele programului plus UnnamedOO (( Nu uitați că în acest fel nu puteți încărca niciun fișier, ci doar text Dacă încercați să deschideți un fișier cu, de exemplu, o extensie exe, programul se va bloca În principiu, ar trebui dezvoltat un mecanism pentru a preveni astfel de erori, dar această sarcină depășește scopul acestei cărți Este mai important să învățăm cum să salvați textul, ceea ce vom face Salvarea datelor În meniul Fișier al formularului frmTextEditor, selectați comanda Salvare Se va deschide o fereastră de cod cu următorul text: Sub privat mnuSave Click() end sub În această procedură, trebuie să declarați două variabile: una este de tip String (va stoca numele sub care utilizatorul dorește să salveze fișierul curent), cealaltă este de tip Integer (va stoca numărul fișierului) Dim FileNm ca șir Dim FirlNumber ca întreg Pentru a organiza introducerea numelui fișierului, vom folosi fereastra InputBox Am lucrat deja cu această funcție în capitolul I se transmit trei argumente: textul de afișat în InputBox, titlul acestuia și valoarea implicită returnată Funcția returnează o valoare String care stochează fie șirul introdus de utilizator, fie șirul implicit În acest caz, vom folosi doar primele două argumente Nu vom seta numele implicit al fișierului Utilizatorul trebuie să introducă numele sub care dorește să salveze fișierul curent Aceasta va fi valoarea returnată de funcția InputBox Să-l salvăm în variabila FileNm: FileNm = InputBox J „Întregul text ar trebui să fie scris pe un singur rând! ("Introduceți numele fișierului", "Salvați") Rulați programul Fereastra arată astfel: Se așteaptă introducerea numelui fișierului Desigur, fișierul ar trebui salvat numai dacă utilizatorul a specificat un nume și nu a apăsat butonul Anulare Deci, trebuie să utilizați o declarație condițională if: Dacă FileNm o "" Atunci Încheiați dacă Acțiunile incluse în instrucțiunea condiționată sunt executate numai dacă utilizatorul a introdus un nume de fișier care nu este gol Dacă este specificat un nume de fișier, atunci trebuie specificat un număr de fișier neocupat Acest lucru se face astfel: FileNumber = FreeFile J De data aceasta, fișierul trebuie deschis nu pentru citire sau introducere de text (ceea ce a fost făcut folosind comanda Orel For Input), ci pentru scriere, cu alte cuvinte, pentru salvarea datelor Diferența este că folosirea comenzii Eagle For Intrare, informațiile care au fost afișate anterior au fost afișate pe ecran stocate în memoria computerului Acum sarcina este de a înregistra ceea ce este pe ecran în memoria computerului Se poate spune că este operația inversă Comanda pentru deschiderea unui fișier pentru scriere este următoarea: Eagle For Output (cuvântul englezesc output în traducere înseamnă „ieșire”) Linia de cod corespunzătoare arată astfel: Deschideți FileNm pentru ieșire ca FileNumber Deci dosarul este deschis Dar tot trebuie să scrieți textul conținut în câmpul elementului TextBox al editorului de text în el În limbajul Visual Basic, Prinț este folosit ca comandă de scriere (ieșire) Indică ieșirea datelor pe ecran, ca în instrucțiunea familiară Debug Prinț Pentru a scrie într-un fișier, utilizați următoarea construcție: Prinț #FileNumber, txtTextWindow Text Astfel, comanda Prinț este urmată de numărul fișierului, care, spre deosebire de scrierea pe ecran, este precedat de simbolul # (adică numărul) Apoi, separat prin virgule, urmează textul care ar trebui să fie scris în acest fișier După aceea, fișierul trebuie închis: Închideți FileNumber În cele din urmă, antetul formularului frmTextEditor ar trebui ajustat pentru a se potrivi cu noul nume de fișier: Legendă = „Editorul meu” + FileNm Pentru orice eventualitate, voi oferi textul integral al acestei proceduri: Sub privat mnuSave Click() Dim FileNm ca șir Dim FileNumber ca întreg FileNm - InputBox J ("Introduceți numele fișierului", "Salvați") Dacă FileNm o "" Atunci FileNumber = FreeFile Deschideți FileNm pentru ieșire ca FileNumber Prinț #FileNumber, txtTextWindow Text Close FileNumber Legendă = „Editorul meu” + FileNm Încheiați dacă end sub Rulați programul și introduceți ceva text în fereastra editorului Alegeți Salvare din meniul Fișier O fereastră de introducere va apărea pe ecran Introduceți un nume de fișier, cum ar fi TestText txt și faceți clic pe OK Specificați comanda Creare pentru a șterge caseta de text Specificați comanda Deschidere pentru fișierul pe care tocmai l-ați salvat Textul introdus va apărea pe ecran nouă Dacă programul tot nu funcționează, compară codul introdus cu atenție cu cel din carte Deci, programul pentru editorul de text este scris Desigur, au rămas multe în afara scopului acestei cărți De exemplu, lucrul cu bazele de date sunt tratate diferit față de fișierele text Există și alte posibilități de organizare a scrierii și citirii dintr-un fișier, dar a vorbi despre ele depășește cu mult sfera unui curs introductiv Mai multe sarcini mici Când selectați comanda Text nou din meniul Fișier, aceasta dispare din fereastra corespunzătoare Acest lucru nu este foarte ușor de utilizat Programați InputBox pentru a anunța utilizatorul că textul riscă să se piardă și oferiți opțiunea de a-l salva într-un fișier cu un anumit nume În plus, când este selectată comanda Ieșire, aplicația se închide fără a solicita utilizatorului să salveze textul introdus Scrieți un mic program care solicită utilizatorului să introducă un nume de litere Numele este apoi afișat în fereastra de depanare, astfel încât prima linie să conțină prima literă a numelui, a doua linie să conțină primele două litere, a treia linie să conțină trei litere și așa mai departe De exemplu, dacă utilizatorul introduce numele „Sergey”, atunci rezultatul execuției programului ar trebui să arate astfel: Cu Se Ser Serg Serge Serghei Aceasta încheie cursul nostru În următorul capitol, final, vom vorbi despre ce trebuie făcut pentru consolidarea și extinderea cunoștințelor dobândite Concluzie Deci, ați citit această carte Sper că veți continua să studiați limbajul Visual Basic Ar fi păcat dacă ai pierde cunoștințele dobândite Dacă ai studiat cu atenție și ai lucrat prin tot ceea ce s-a spus în carte, atunci ai făcut o treabă grozavă și utilă După cum v-am spus, cel mai important lucru este că Programarea poate fi învățată doar prin crearea de programe pe cont propriu Așa că scrieți cât mai multe Câteva sugestii Extindeți aplicația de joc cu minge făcând-o să se confrunte cu obstacole controlate de utilizator Sau, încercați să scrieți un program pentru a juca cărți utilizând simbolurile costumului de cărți pe care Visual Basic le oferă atunci când este complet instalat (rețineți secțiunea „PictureBox and Image Elements” din Capitolul ) În cele din urmă, încercați să adăugați funcții suplimentare editorului de text Posibilitățile sunt nesfârșite! Vă încurajez să continuați să vă actualizați cunoștințele Librăriile vând o mulțime de cărți despre Visual Basic De regulă, sunt prea dificile pentru începători Dar după ce ai citit această ediție, ar trebui să le asumi Deci, vezi tu, mai este mult de lucru Crede-mă, cu cât cunoști mai bine programarea, cu atât este mai distractiv Vă doresc succes în viitoarele proiecte software anexa a Instalarea Visual Basic de pe CD Înainte de a putea începe să dezvoltați programe și să finalizați sarcinile din carte, trebuie să instalați Visual Basic pe computer Vă voi explica în detaliu cum să instalați de pe CD versiunea de lucru, care are aproape toate caracteristicile versiunii complete Singurul lucru pe care nu îl puteți face cu el este să creați programe care pot rula independent de mediul Visual Basic Dar această versiune este destul de potrivită pentru a îndeplini toate sarcinile propuse în carte Astfel, capacitățile sale vă vor dura mult timp Procedura de instalare a programului de pe un CD este relativ simplă O vom parcurge pas cu pas pentru a evita eventualele probleme Introduceți CD-ul achiziționat în unitatea CD Programul de instalare ar trebui să pornească automat Dacă acest lucru nu se întâmplă, procedați după cum urmează: faceți dublu clic pe pictograma My Computer situată pe desktop în mediul Windows Va apărea o fereastră care listează toate discurile de pe computer Faceți dublu clic pe pictograma unității CD-ROM Aceasta fie va lansa programul de instalare automat, fie va deschide o altă fereastră cu o listă de fișiere și foldere Faceți dublu clic pe SETUP EXE și instalarea va începe Pe ecran va apărea următoarea fereastră: Începe instalarea sistemului Visual Basic Faceți clic pe butonul Următorul Va apărea următoarea fereastră care conține termenii acordului de licență Faceți clic pe butonul radio Sunt de acord pentru a continua instalarea Apoi faceți clic pe butonul Următorul În câmpul Nume al ferestrei următoare, trebuie să fie indicat numele dvs (de obicei sistemul de operare Windows îl indică automat) Dacă câmpul Nume este gol, introduceți numele dvs și faceți clic pe butonul Următorul Uneori apare fereastra de instalare Microsoft Internet Explorer în această etapă Puteți păstra toate setările implicite După instalarea acestui program, computerul va reporni Continuați instalarea Visual Basic Faceți clic pe butonul Următorul în fereastra următoare Computerul va reporni din nou Din păcate, acest lucru este inevitabil atunci când instalați programe moderne care accesează fișierele de sistem Windows După repornirea sistemului de operare Windows, veți vedea următoarea fereastră: ■ Expert de instalare pentru Visual Basic Entarprise Edition £alegeți un folder pentru fișierele comune: Folder comun de instalare Puteți alege locația fișierelor care sunt comune în aplicațiile Visual Studio Fișierele comune ar trebui să fie stocate într-un folder numit Common , Dacă trebuie să modificați valoarea implicită afișată mai jos, puteți face clic pe butonul Răsfoiți pentru a vă explora hard diskul și a alege o nouă locație C:\Program Files\Microsoft Visual Studio\Common Naviga Spațiul minim necesar pentru folderul comun este de MB Unitatea C: are MB liberi Următorul > Ieșire Selectarea folderului Selectați valoarea implicită pentru aceasta Apoi faceți clic pe butonul Următorul în această fereastră și în următoarea Programul de instalare vă va arăta numărul ID-ului produsului Citiți cu atenție întregul text și confirmați acordul cu acesta făcând clic pe butonul OK Următoarea fereastră arată astfel: Alege optiunea corecta Trebuie să specifice în ce folder trebuie instalat programul Visual Basic Puteți fie să acceptați selecția implicită (pe care o recomand), fie făcând clic pe butonul Răsfoire, selectați un alt folder Programul de instalare vă va întreba dacă doriți să creați folderul corespunzător Faceți clic pe OK Apoi, trebuie să selectați tipul de instalare: Standard (Standard) sau Personalizat (Selectat de utilizator) Pentru a putea rula toate exemplele din această carte, selectați opțiunea Personalizat Diferența dintre acesta și instalarea standard este, în primul rând, că instalarea Custom va copia pe computer anumite fișiere grafice care, deși ocupă mult spațiu pe hard disk, sunt foarte utile Dacă ați ales o instalare personalizată, spuneți programului ce să instaleze: Selectarea componentelor Dacă cantitatea de memorie liberă de pe computer este suficient de mare, faceți clic pe butonul Select AP (Selectați tot), apoi faceți clic pe butonul Următorul Programul de instalare va începe apoi să copieze fișierele necesare pe computer și să vă configureze sistemul Visual Basic, astfel încât să puteți lucra cu el La sfârșitul acestui proces, pe ecran va apărea următoarea fereastră: Configurare Visual Basic Enterprise - Reporniți Windows Trebuie să reporniți Windows pentru a finaliza instalarea Înainte de a reporni, închideți toate aplicațiile deschise, inclusiv sesiunile MS-DOS, și salvați toate documentele curente Scoateți orice dischetă încă introdusă într-o unitate de disc Apoi, faceți clic pe butonul Reporniți Windows Dacă alegeți să reporniți ecranul se poate goli sau pâlpâi Vă rugăm să aveți răbdare în timp ce setarea repornește mașina dvs p Kesta rtjjMnd ows îj Configurare E c it Faceți clic pe butonul Reporniți Windows Dacă aveți acces la internet, vă puteți înregistra online Dacă acest lucru nu este necesar, faceți clic pe eticheta corespunzătoare pentru a anula înregistrarea În cele din urmă, faceți clic pe butonul Terminare pentru a finaliza instalarea Anexa B Instalarea fișierelor de pe CD Dacă trebuie să instalați anumite fișiere de pe CD-ul achiziționat pentru a finaliza exercițiile, vă voi explica cum să faceți acest lucru De exemplu, să presupunem că există mai multe foldere pe un CD Există două moduri de a lucra cu ele: fie să le descărcați direct de pe un CD, fie să le copiați pe hard disk Se încarcă fișiere de pe CD Să presupunem că folderul MYPR GRAMS /EXAMPLES conține fișierul TEST VBP Folosind exemplul său, voi arăta cum are loc descărcarea Pentru alte dosare, procedura este similară Urmează următoarele instrucțiuni: Porniți sistemul Visual Basic conform instrucțiunilor de la începutul capitolului Selectați comanda Deschidere proiect din meniul Fișier În fereastra Open Project, specificați CD-ul Faceți dublu clic pe folderul MYPR GRAMS și, în cadrul respectivului folder, pe subdosarul EXEMPLE Fișierele din folderul Exemple Faceți dublu clic pe fișierul TEST VBP și se va încărca Este posibil ca shell-ul Visual Basic al utilizatorului să rămână gol, iar proiectul încărcat să nu fie vizibil în el Apoi procedați după cum urmează În partea dreaptă sus a ferestrei shell-ului utilizatorului se află fereastra proiectului Cel mai probabil arată așa: Fereastra proiectului Faceți clic pe semnul plus din fața dosarului Formulare Se va deschide o listă de formulare individuale Fie ca în acest caz să fie format dintr-o formă TEST FRM Faceți dublu clic pe această formă pentru a deschide fereastra obiectului acesteia Scrierea fișierelor pe hard disk Cu toate acestea, este mai rațional să copiați toate fișierele pe hard disk Apoi accesul la ele va fi mai rapid, în procesul de lucru nu va trebui să accesați CD-ul de fiecare dată și, în plus, nu vor fi probleme cu efectuarea modificărilor Pentru a copia fișiere pe hard disk, trebuie să faceți următoarele Creați un folder nou pe hard disk Pentru a face acest lucru, faceți clic pe pictograma My Computer situată pe desktop și faceți dublu clic pentru a selecta unitatea dorită (dacă aveți mai multe) Indicați în meniul Fișier secvențial comenzile New (Create) și Folder (Folder) Denumiți folderul creat, de exemplu, VVExamples Faceți clic pe noul folder pentru a-l deschide Faceți clic dreapta (!) pe pictograma CD-ROM din fereastra My Computer (clic stânga va lansa programul de instalare) În meniul contextual care apare, selectați comanda Deschidere Pe ecran va apărea o listă cu toate folderele conținute pe CD Printre acestea, să presupunem, sunt folderele MYPR GRAMS și MYPR GRAMS Selectați folderul MYPR GRAMS cu butonul stâng al mouse-ului Apoi în meniul Editare (Editare) selectați comanda Soru (Copiere) Navigați la folderul creat anterior Selectați comanda Lipire din meniul Editare Toate fișierele vor fi copiate în acest folder Faceți același lucru cu folderul MYPR GRAMS Acum aveți posibilitatea de a încărca aceste fișiere în mediul Visual Basic direct de pe hard disk-ul computerului L^ Dacă modificați aceste fișiere și încercați să salvați modificările, va apărea un mesaj de eroare pe ecran: În acest caz, procedați după cum urmează: Selectați fișierul dorit (de exemplu, TEST VBP) folosind fereastra My Computer și faceți clic dreapta pe el În meniul contextual care se deschide, selectați comanda Proprietăți Pe ecran va apărea următoarea fereastră: Bifați caseta de selectare Numai citire Dacă caseta de selectare Arhivă este deja bifată, debifați-o După aceea, puteți face modificări fișierului Index alfabetic Activați Altfel Elself Activat , , Sfârșit EndDoc Ieșire Sub , Alinierea , mărime automată Culoare spate spate stil BorderStyle Octetul Legenda Modificare (lucrare cu fișiere) Schimbarea (proprietatea) Caseta de verificare Verificat (proprietate) Faceți clic pe FileListBox Font FontBold (proprietate) Fontltalic (proprietate) FontUnderline (proprietate) pentru Form Load Form Load() , Formularul Formatul FreeFile (funcție) Du-te la Închidere (lucrare cu fișiere) ComboBox , Depanare Dim DirListBox Fă în timp ce Conducere (proprietate) Caseta DriveList Ascunde , dacă , , dacă atunci Imaginea Caseta de intrare , Numărul întreg Interval (proprietate) Labei Stânga (proprietatea) Stânga (funcție) Linia (instrumentul) Caseta Listă Sarcina LOF (funcție) Lung buclă Faceți bucla While MultiLine (proprietate) Următorul pentru bucla La eroare GoTo Deschidere pentru intrare Deschidere pentru ieșire Opțiune explicită • OptionButton Calea Poza (proprietate) PictureBox Prințul Imprimanta Butonul radio Redimensionați RichTextBox Dreptul (funcția) ScaleHeight , ScaleWidth , Bara de derulare SetFocus Forma Arată Singur Sortat (proprietate) Etapa pentru bucla Întindere (proprietate) Șirul , Caseta de text Cronometru , Top (proprietate) Toure Valoarea (proprietatea) Varianta vbModal Visual Basic lansare definiție WindowState (proprietate) VA Argumentul Ch K Calculator Buton de comandă Comentariu Comentariu Grafică computerizată , program Baza de date , Selectarea elementelor de control , Calcule în Visual Basic Matrice Meniul Multitasking Modulul Divizia zero total modulo numere în virgulă mobilă Suporturi Adăugarea formularului Pornirea programului zecimale Jocuri Index Dosar numărul V Backslash Declarație variabilă Fereastră obiectul cod program proiect , , proprietăți Operator postfix atribuiri condițional Bloc de instrucțiuni Sistem de operare Greșeli de scriere Interogare de coliziune Deschiderea unui fișier Erori utilizator J® (la V p Cutia de instrumente , Foldere Variabila contor Variabilele , Privat Public sfera unirea cu câmpurile ciclul Tipărire Planificarea programului Shell de utilizator Operator Postfix , , , , Programare Bucla de trecere Procedura , sunați la tratarea erorilor V T Editor de text Tipuri de date , definit de utilizator Colţ reflexii , picături , Elemente de control redimensionare nume Niveluri de dezvoltare a programului Focus Caracteristica Egalitatea Editor de meniu Moduri de executare a programului Ciclul Cronometru Sistemul de coordonate în Visual Basic Paranteze Salvarea programelor Fereastra de pornire Linia de meniu Font Bernd Weiland В Visual Basic pentru copii: Per cu el - M : SA „Interexpert”, - p Învață limbajul de programare Visual Basic folosind mediul de dezvoltare Visual Basic Crearea proiectelor, descrierea principalelor elemente de control și proprietățile acestora Lucrul cu variabile: asocieri de variabile, domeniul de aplicare, utilizarea modulelor, matrice Creați-vă propriile tipuri de date și meniuri Pentru toți cei care încep să învețe elementele de bază ale programării în Visual Basic ISBN - - - UDC : BBK = B Ediție populară științifică Bernd Weiland Visual Basic pentru copii Editor Corector Aspect Autor coperta Varianta de design rusesc V I Fomichev N E Anikina E A Nikishchihina J Pulido I I Tsyganova Semnat pentru tipărire din aspectul original / / Format x / Hartie offset Tip de literă pentru manual Imprimare offset Conv cuptor l Ordin Tiraj exemplare SA „Interexpert” (LR Nr din ) , Moscova, st Shosseynaya, d , bldg Tel ( ) - - Tipărit în deplină conformitate cu calitatea foliilor transparente furnizate la SA „Mozhaisk Printing Plant” , Mozhaisk, st Mira, ІЯ® Un instrument indispensabil pentru predarea programării profesionale a computerelor Ți-ar plăcea să stăpânești un computer? Atunci învață programarea! Această carte vă duce pas cu pas prin lumea Visual Basic Pornind de la elementele de bază, vei ajunge treptat la nivelul unui dezvoltator de mici programe profesionale Un număr mare de exemple și exerciții fac cartea clară și ușor de înțeles Când începeți să programați, vă va fi de mare ajutor în munca dvs ! Pentru cine este această carte? Oricine vrea să învețe programarea Nu contează câți ani ai, cu o dorință serioasă, o astfel de sarcină va fi pe umăr Din cunoștințe preliminare, sunt necesare doar abilități de lucru de bază în sistemul de operare Windows Editura interexpert'